VB登陆时出错 (91)错误

Option Explicit
Dim SQL As String
Dim msg As String
Private Sub Form_Load()
Dim rst As New adodb.Recordset
Dim strItem As String
SQL = " select 用户ID,用户名称 from 用户信息表 order by 用户ID"
Set rst = SelectSQL(SQL, msg)
If rst.RecordCount > 0 Then
If rst.State <> adStateClosed Then rst.Close
Do While Not rst.EOF
'添加到ComboBox列表
strItem = rst.Fields(0) & " " & rst.Fields(1)
CboName.AddItem (strItem)
rst.MoveNext '指向下一条记录
Loop
rst.Close
CboName.ListIndex = 0 '默认ComboBox
Else
MsgBox ("请先创建用户信息！")
CmdOk.Enabled = False
Exit Sub
End If
End Sub
Private Sub CmdOK_Click()
Dim rst As adodb.Recordset
Dim password As String
'判断用户是否存在

你要先创建一个连接对象Conn,举例:
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'请输入实际路径及数据库的名字
Dim SQL As String SQL = "Select * From [MOBILE]"
Rs.Open SQL, Conn, 1, 3
然后就可以用Rs对象来读取或写入了,你的程序将Rs改成Rst

魔兽世界 登陆时出错 登陆用户时出错?????? 登陆QQ游戏时出错 vb在调试运行时出错 VB 串口发送十六进制数时出错 安装vb中文企业版时出错 vb制作的登陆界面,使用ACCESS数据,有一句出错！（急） 三国群英传3登陆时武将出错 QQ登陆时提示出错,怎么解决? 新装的热血江湖登陆时出错