vb6+accesss 在text box输入值 於 label显示结果

'你的具体要求没有写明,这是一个简单示例
'首先点击菜单"工程"-"引用",找到并勾选"Microsoft ActvieX Data Object2.X ...",再添加1个Command、1个Text和1个Label控件

Option Explicit
Dim DbObj As New ADODB.Connection

Private Sub Command1_Click()
Dim QryDt As New ADODB.Recordset
QryDt.CursorLocation = adUseClient
'假设直接要指定编号查询老师姓名
QryDt.Open "SELECT 姓名 FROM 资料档B WHERE 老师编号='" & Text1.Text & "'", DbObj
'如果要用联合查询,通过主档的C字段值来查询老师姓名
' QryDt.Open "SELECT 主档.姓名 FROM 主档 Inner Join 资料档B on 主档.老师编号=资料档B.老师编号 WHERE 主档.C='" & Text1.Text & "'", DbObj
If Not QryDt.EOF Then Label1.Caption = QryDt.Fields(0)
QryDt.Close
Set QryDt = Nothing
End Sub

Private Sub Form_Load()
DbObj.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;Mode=Read;Persist Security Info=False"
DbObj.CursorLocation = adUseClient
DbObj.Open
End Sub