Visual Basic - ayuda con sentencia sql

como lo mencione tengo un problemilla y no encuentro el error tengo esta con eccion pero cuando llega al open de rscal no pasa al proxima linea sino que se sale de la funcion este codigo esta en una funcion. no encuentro el error solo se sale de la funcion y prosige con la siguiente linea ojala me pudieran ayudar con el error y ni siquiera marca error solo se sale gracias..


Set cncal = New ADODB.Connection
cncal.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\E-BAR.mdb;" & _
"Persist Security Info=False"
Set rscal = New ADODB.Recordset
rscal.CursorLocation = adUseClient
rscal.Open "SELECT Mesa FROM Ventas WHERE Mesa='" & Me.txtMesa.Text, cncal, adOpenForwardOnly, adLockOptimistic, adCmdText <<<<------- Aqui en esta linea se sale de la funcion
If Not (rscal.EOF Or rscal.BOF) Then

Generalmente yo despues de el query solo pondria "cncal"

Cuando ponia parametros le ponia estos : adOpenStatic, adLockReadOnly

Esos que tu mencionas no los conosco

Aun asi, para abrir bases de datos MDB utilizo DAO en lugar de ADO asi :

Dim DbsQ As Database, ResultadoQ As dao.Recordset
Set DbsQ = OpenDatabase(App.Path & "\materiales.mdb")
Set ResultadoQ = DbsQ.OpenRecordset("SELECT * FROM Datos;")
If ResultadoQ.RecordCount > 0 Then
Principal.UsuarioP = ResultadoQ.Fields("campo") ' -- o por numero
End If
DbsQ.Close

Me suena un tanto extraño solo 1 cosa que tienes por ahí, y es el adCmdText, ya implísitamente la ejecución la hace así, y ese parámetros es más de un ADODB.Command, sugiero quitarlo ya que no afecta el que no esté