Dim str As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\旅客信息.mdb"
str = InputBox("输入旅客姓名", "查找")
rs.Open "select * from 旅客信息 where 姓名='" & str & "'", conn, adOpenKeyset, adLockOptimistic
Text1.Text = rs.Fields
求解答，什么意思
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\旅客信息.mdb"
str = InputBox("输入旅客姓名", "查找")
rs.Open "select * from 旅客信息 where 姓名='" & str & "'", conn, adOpenKeyset, adLockOptimistic
Text1.Text = rs.Fields
求解答，什么意思
