关于VB编程的，请高手帮忙！！！

谁能帮我分析一下出错原因，灌水的勿扰！！

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click()
Dim user As String, pwd As String
user = Trim(txtUser)
pwd = Trim(txtPwd)
Dim r As New ADODB.Recordset
Set r = DataEnv.rssqlSeek（运行时系统提示rssqlSeek未找到方法或数据成员
Dim strSQL As String
Select Case mnUserType
Case 0:
strSQL = "select * from 经理人员表 where name=" & user & "and pwd=" & pwd & ""
Case 1
strSQL = "select * from 管理人员表 where name=" & user & "and pwd=" & pwd & ""
End Select
On Error Resume Next
If r.State = adStateOpen Then r.Close
r.Open strSQL
Static nTryCount As Integer
If r.EOF Then
MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误"
txtUser.SetFocus
txtUser.SelStart = 0
txtUser.SelLength = Len(txtUser)
nTryCount =

vb编程高手请帮忙~~！ VB编程：请高手帮忙 VB编程高手请帮忙 急求 VB 编程 请高手帮忙 vb串口通信编程，请高手帮忙 一道VB编程题~~请高手帮忙 关于VB的，请高手帮忙 高手帮忙：VB编程 关于VB编程的问题.高手请进.! 关于VB编程的,请赐教