请问如何把access数据库中某表的值赋予VB变量?

Question

Dim conTest As New ADODB.Connection
    Dim recTest As New ADODB.Recordset
    conTest.CursorLocation = adUseClient
    '具体数据库你自己定
    conTest.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
    conTest.Open
    
    recTest.Open "select * from table1 where 代号='" & Trim(Text1.Text) & "'", conTest, adOpenDynamic, adLockBatchOptimistic
    '......
    '检测是否存在等的处理，如果存在
    '......
    Text2.Text = recTest.Fields("名字").Value
    '细节处理你自己做吧
    '不建议字段使用中文名称