运行时提示有错，然后停留在第一行上面

Private Sub Command1_Click()
mname = Text1.Text
pass = Text2.Text
Dim mycn As New ADODB.Connection
Dim myrs As New ADODB.Recordset
Set myrs = New ADODB.Recordset
mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;"
myrs.Open "SELECT * FROM [user] where (user.user)='" + mname + "';", mycn, adOpenKeyset, adLockOptimistic

If myrs.BOF = True And myrs.EOF = True Then

MsgBox "查无此人", , "登陆信息"
Else


     If myrs("pass") = pass Then

         ''''''''''''''''''''''''''''''''''''''''''
        MsgBox "ok", , "登陆信息"
         MDIForm1.Show

         Unload Me


           '''''''''''''''''''''''''''''''''''''''''''''''''''
     Else
        MsgBox "密码不正确", , "登陆信息"
     End If


  End If


End Sub

Private Sub Form_DblClick()
MsgBox "hello"
End Sub

Private Sub Form_Load()
Dim mname As String
Dim pass As String
End Sub
--------------------编程问答-------------------- 你别说，还真是出在第一行上 --------------------编程问答-------------------- 关键是报的啥错提示说清楚 --------------------编程问答-------------------- 楼主的问题是在是高 --------------------编程问答-------------------- 你们都这样？

我还特意把代码全粘过来，试了试，没问题啊，运行的好好的。

--------------------编程问答-------------------- 所有变量都定义了,只有第一,第二行的变量定义在另外的过程中...

--------------------编程问答-------------------- mname = Text1.Text

请问你的mname定义了没？你的from里面有没有一个text1? --------------------编程问答-------------------- --------------------编程问答-------------------- 总有出错提示吧? 咋说的? 看看

补充：VB ,  控件