小弟我的这个程序如何打不开Access

2013-09-18

我的这个程序怎么打不开Access？Dim cnn1, rec As ObjectDim str As Stringstr Provider microsoft jet

我的这个程序怎么打不开Access？
Dim cnn1, rec As Object
Dim str As String
str = "Provider= microsoft jet 4.0 OLE DB Provider;data source=D:\程序程序程序\VB6.0\BIBLIO.MDB"
Set cnn1 = CreateObject("ADODB.Connection")
Set rec = CreateObject("ADODB.Recordset")
cnn1.Open str
提示错误是：

Quote: 引用:

Provider=Microsoft.Jet.OLEDB.4.0
注意大小写
删掉后面的 Provider

你的sql是否有问题，注意类型。
[解决办法]
rec.Open "大区表", cnn1, adOpenKeyset, adLockOptimistic, adCmdTableDirect