Parameter Query? Pls Help

I want my msgbox to tell my user that this projectId does not exist in our db if the sql search returns an empty value. I get errors that i can't run this action query. please see red text. any ideas?

Private Sub Project_Quick_Find_Click()
On Error GoTo Err_Project_Quick_Find_Click

Dim stDocName As String
Dim stLinkCriteria As String
Dim Ssql As String

Ssql = "Select [projectInformation].[projectId] from [projectInformation]" & _
"where [projectInformation].[projectId] = " & Me![ProjId]

'DoCmd.SetWarnings False
DoCmd.RunSQL Ssql
'DoCmd.SetWarnings True

stDocName = "Project Status - Full Details"
stLinkCriteria = "[projectId]=" & Me![ProjId]

If Ssql = "" Then
MsgBox "A Project with this number does not exist in our database", vbExclamation, "Cannot find project"
Else
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

Exit_Project_Quick_Find_Click:
Exit Sub

Err_Project_Quick_Find_Click:
If Err.Number = 3075 Then
MsgBox " Please enter a Project ID to find! ", vbExclamation, "Empty Field"
Else
MsgBox Err.Number & ": " & Err.Description, vbOKOnly, "Error"
Resume Exit_Project_Quick_Find_Click
End If
End Sub