数据库tbcs是什么的缩写
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TBCS08D.MDB;Jet OLEDB:DataBase password=wn8815732;" 'TBCS08D改成你自己的数据库名称
Conn.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from LiaoWei ", Conn, 1, 3 'LiaoWei改成你自己的数据表名称
text1.text==Rs.Fields(1)
text2.text==Rs.Fields(2)...
2356