请教一个极其弱智的问题

Question

没办法，各位帮下忙有一个Access数据库 Info
里面有三个字段 姓名 性别 编号
现在我要把这三个信息根据编号查出来显示在三个TEXT框里
该怎么做？
高手帮帮忙！！万分感谢，我的分不多了，把最后30分送上

Answer 1

Private Sub Form_Load()
    Dim Cnn As ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Cnn.ConnectionString = "数据库连接字符串"
    Cnn.Open
    Rs.Open "SELECT * FROM Info WHERE 编号='" & 条件 & "'", Cnn, adOpenKeyset, adLockReadOnly, adCmdText
    If Rs.EOF And Rs.BOF Then
    Else
        Text1.Text = Rs("编号")
        Text2.Text = Rs("姓名")
        Text3.Text = Rs("性别")
    End If
    Rs.Close
    Set Rs = Nothing
    Cnn.Close
    Set Cnn = Nothing
End Sub

Answer 2

Dim Cnn As ADODB.Connection 应该是Dim Cnn As New ADODB.Connection

Answer 3

Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db\manage.mdb;Persist Security Info=False"执行到这句说 实时错误91，对象变量或者WITH变量快未设置怎么办  啊

Answer 4

哦， 我改成了Dim Cnn As New ADODB.Connection就好了，是我刚才没看到对了，，我想把编号设置为用户输入的是不是该这样？ Rs.Open "SELECT * FROM Info WHERE 编号='CoceText.Text'", Cnn, adOpenKeyset, adLockReadOnly, adCmdText这样行吗

Answer 5

要引用ado呢
工程>>引用>>Microsoft ActiveX data objects 2.5Libirary

Answer 6

是这样：　"SELECT * FROM Info WHERE 编号='" & CoceText.Text & "'"