VB—连接ACCESS数据库

Question

小弟最近用VB做了个登陆界面，控件有两个文本框：TEXT1（输入工号），TEXT2（输入密码）；两个Command按钮。
连接一个名为Data.mdb的数据库，Data中有一张名为login的表，表的结构如下：user_gh      user_xm    user_jb    user_mm  001           张三      管理员        123  002           李四      操作员        456已实现的功能：
        在TEXT1中输入工号，（TEXT1显示的是号码），在TEXT2中输入密码登陆。（我用的是ADODB。）希望实现的功能：
     在TEXT1中输入工号，按回车后，TEXT1中显示的是用户的姓名（user_xm相应的字段），然后在TEXT2中输入密码登陆。
     小弟初学VB，可能问题很菜，但希望懂的朋友能尽量详细地回答一下，小弟不胜感激！ 

Answer 1

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim rs As New ADODB.Recordset
    If KeyCode = 13 Then
        strSql = "select user_xm from login where user_gh='" & Text1.Text
        Set rs = cnn.Execute(strSql)
        Text1.Text = rs.Fields(0).Value
    End If
End Sub

Answer 2

你好!
    很高兴认识你。首先，很感谢你对我的回复。
     我按照你的方法试了几次，不成功。程序试运行的时候弹出提示：“实时错误“424”：要求对象然后是：Set rs = cnn.Execute(strSql)  这段代码显黄色，不知道你不是我的数据库设置了密码的缘故？（密码是：123456）应该怎样解决，请再帮忙！谢谢~~  

Answer 3

cnn这个ADO连接对象你没有定义吧

Answer 4

Dim adoCn As New ADODB.Connection
Dim adoRs As New ADODB.Recordset
Dim adoCnStr As String
Dim adoStr As String
Dim userid As String
Private Sub Form_Load()
adoCnStr = "Provider=MSDataShape.1;Persist Security Info=True;" _
             & "Data provider=SQLOLEDB.1;Persist Security Info=True;" _
             & "Initial Catalog=DBName;Data Source=DBServer;uid=sa;pwd=123;"End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
 
 If KeyAscii = 13 Then
   adoCn.ConnectionString = adoCnStr
   adoCn.Open
   userid = Trim(Text1.Text)
   adoRs.ActiveConnection = adoCn
   adoStr = "select username from userinfo where userid='" & userid & "'"
   adoRs.Open adoStr, , adOpenStatic
   If Not adoRs.EOF Then
   Text1.Text = adoRs.Fields(0)
   End If
 End If
If adoRs.State = 1 Then adoRs.Close
If adoRs.State = 1 Then adoCn.Close
End Sub

Answer 5

是的,没定义.
但这个cnn到底怎么定义希望能详细告知!!!

Answer 6

4楼的朋友说的办法我也试过了。但在运行的时候：“adoCn As New ADODB.Connection”这段代码显蓝色。提示：编译错误，用户定义类型未定义。请问是什么原因？最好就把每段代码的意思都解释一下。谢谢。