'command1单击事件代码
dim rs as New ADODB.recordset
dim connstr as string
dim sqlstr as string
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"
sqlstr="select 内容 from ASDF where 代码='" & text1 & "'"
rs.open sqlstr,conn,adOpenKeyset,adLockReadOnly
text2=rs!内容
rs.close
set rs=nothing
祝你成功！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024