VB显示数据库内容

您好，我来帮你搞定：
1 新建工程；在窗体上加入一个按钮command1，一个文本框text1,
2 添加引用；工程-引用-Microsoft ActiveX Data Objects 2.7 Library；
3 将工程保存在d:\MY_project文件夹
4 我一看就知道你的数据库是access数据库，哈哈。
代码如下：
private sub Form_Load()
on error goto errmsg '遇到错误，转到errmsg
dim MyConStr as string '连数据库字符串
dim sqlstr as string '查询语句
dim a as string '对应表中的字段a b c
dim b as string
dim c as string
dim conn2 as New ADODB.connection ’连接对象
MyConStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb"
conn2.open MyConStr '建立数据库连接
dim rs as New ADODB.Recordset ’创建数据集对象
sqlstr="select top 1 * from MyTable order by a desc" '选出最大编号的记录

rs.open sqlstr,conn2,1,1 '读取数据到记录集
’假设MyTable这张表里有3个字段a,b,c ,其中a就是那个自动编号
Do while Not rs.Eof
a = RTrim(LTrim(rs("a")))+"|" '加上|方便输出有分隔
b = RTrim(LTrim(rs("b")))+&q