[VB SQL Server] Esecuzione Query

[gcadmin]

Ciao a tutti,

sto implementando un piccolo programma che si interfacci con un database SQL Server 2008
ed adesso, dopo aver effettuato la connessioneal db, mi trovo a dover fare la prima query
che risulta essere una select

strsql = "select max(number)"
strsql = strsql & "from dbo.Documents"
strsql = strsql & "where ((projectName = '" & proj & "') AND "
strsql = strsql & "(documentType = '" & docType & "') AND "
strsql = strsql & "(date = '" & dat & "'))"
objcomm = New OleDbCommand(strsql, FormGen.objconn)
Try
      ris = objcomm.ExecuteScalar
      If ris = 1 Then
          MsgBox("Query OK")
      End If
Catch es As Exception
          MsgBox("Errore")
End Try

Il codice appena postato mi ritorna sempre il messaggio "Errore" qualcuno può aiutarmi a capire come mai, mi sembra che la query sia scritta bene.

Grazie in anticipo