Private Sub List1_Click()
Dim objDB As Database
Dim objRS As Recordset
Dim strSQL As String
'根据里列表选中项的值,形成SQL文
strSQL = "Select * From Table1" _
& " Where 姓名='" & List1.Text & "'"
'打开数据库,抽出满足条件的记录
Set objDB = OpenDatabase("D:\Test.mdb")
Set objRS = objDB.OpenRecordset(strSQL)
If Not objRS.EOF Then
'将抽出数据送入Text控件
Text1 = objRS.Fields("联系方式").Value & ""
End If
'关闭数据库
objRS.Close
objDB.Close
End Sub