vb的access连接问题，需急救!!!

来源：百度知道 编辑：UC知道 时间：2024/05/12 12:39:14
本人在做一个vb课设，仓库管理系统，需要连接access数据库，可从菜单出点击“外部连接数据”下拉菜单，“可视化数据连接”老是 出错，说“无proid:data.dataclass"对象不存在，请问谁能够给解决以下，小弟多谢了！

Private Sub Form_Activate()
Combo1.Clear
cnnUser.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\db.mpp"
cnnUser.Open
With rstUser
Set .ActiveConnection = cnnUser
.CursorType = adOpenKeyset 'adOpenKeyset,adOpenStatic可使用Recordset的RecordCount,其他两个属性不行
End With
With rstUser
If .State = adStateOpen Then .Close
.Open "Select * from admin"
Do While Not .EOF
Combo1.AddItem rstUser.Fields("name").Value
'Combo1.AddItem decipher(Trim(rstUser.Fields("password").Value))
.MoveNext
Loop
.Close

End With
cnnUser.Close
End Sub