Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Private Sub Command1_Click()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "d:\a.mdb;Persist Security Info=False"
sql = "select 姓名 from users where 编号 = " & Trim(Text1.Text)
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount = 0 Then
MsgBox "没有此用户", vbCritical, "提示"
Else
Text2.Text = rs.Fields("姓名")
End If
End Sub
'简单的一个代码流程，希望是你想要
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024