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