Private Sub Command1_Click() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim ss As String Dim qs As String ss = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and Settingsp桌面a.mdb;Persist Security Info=False" ***.Open ss qs = "select * from a where id="&Val(Text1.Text) ***.Open qs, conn, 1, 3, -1 Label1.Caption = rs.Fields(1) Label2.Caption = rs.Fields(2) rs.Close conn.Close End Sub 注意你的qs赋值有问题! 你的库中id是什么类型.我用的是数字类型.用VB6.0通过测试.控件就是你以前那样的(command1,label1,label2,adodc1,text1). 数据库路径最好用相对路径.否则移置性不好.相对路径可用 app.path,表示应用程序的路径,你把a.mdb放在你编写程序的相同路径时.连接库代码可写成:ss = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&app.path&"a.mdb;Persist Security Info=False"。