mysql的小问题

Question

Set rs = New ADODB.Recordset
    strsql = "select * from priceinfo"
    rs.Open strsql, con, adOpenKeyset, adLockOptimistic
   ' rs.MoveFirst
    Me.Text3.Text = rs!priceName
    Me.Text2.Text = rs!priceSN提示：
数据提供程序或其他服务返回E-Fall状态再提示实时错误“3021”
为什么

Answer 1

con
数据库连接字窜正确不？
打开了没

Answer 2

数据连接上了吗？
我的网站上有VB访问MYSQL数据库的源码，你可以看看。VB资料->查询>“VB连接MYSQL数据库”；＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/

Answer 3

数据连接上了吗？
我的网站上有VB访问MYSQL数据库的源码，你可以看看。VB资料->查询>“VB连接MYSQL数据库”；＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/