dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径"
rs.open "select * from 表" , cn , adOpenKeyset, adLockPessimistic
rs.movefirst
text1.text= rs.fields("字段1")
text2.text=rs.fields("字段2")
rs.close
cn.close
set rs =nothing
set cn=nothing