VB6.0连接数据库错误

cnnstu.Closecnnstu.Provider = "Microsoft.ACE.OLEDB.12.0" 改成

cnnstu.Closecnnstu.Provider = "Microsoft.Jet.OLEDB.4.0"

参考实例代码

Dim Cnnstu As New ADODB.Connection '连接到指定数据库

Dim Rsstu As New ADODB.Recordset

Dim ConnStr As String, RstSql As String

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\空气质量数据.mdb"

Cnnstu.Open ConnStr

RstSql = "select 地点," &Combo2.Text &",质量等级 from " &Combo1.Text &" where 地点 = " &"'" &Combo3.Text &"'"

Rsstu.Open RstSql, Cnnstu, adOpenKeyset, adLockPessimistic

怎么解决?没怎么解决啊..就是提示你,你的这个方式法DAO里面没有啊,估计你的版本太低了,你进入一个VB,在"工程"-"引用"里面更改一下版本.

另外现在很少有程序是用引DAO了,这是很高以前的代码了吧,现在都是的Adodb2.8以上了.提议你选用"Microsoft ActiveX Data Objects 2.8 Library",这是比较不错的.

你的代码没有错误，如果总是出现“对象变量或with块变量未设置”错误，只有一个可能，就是你的

MSHFlexGrid

控件的问题。当用的是

MSFlexGrid

控件时，会出现你说的问题。

---