实时异常80040e21 odbc 驱动程序不支持所需的属性

实时错误80040e21 odbc 驱动程序不支持所需的属性
Private Sub Command2_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Sql As String
Set cn = New ADODB.Connection
cn.Open "provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=E:\成绩\成绩表.dbf;"
Sql = "select * from 成绩表"
Set rs = New ADODB.Recordset
rs.Open Sql, cn,adOpenStatic,adLockBatchOptimistic '(实时错误80040e21 odbc 驱动程序不支持所需的属性)
rs.AddNew
rs("分数") = "Text1.Text"
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

'怎样解决这个问题啊？

[解决办法]
LZ:你的DBF数据表构成的数据库需要通过ODBC方式连接.这些DBF数据表构成的数据库是以*.DBC来组成的.
该连接句应该是:

VB code

    cn.Open  "Provider=MSDASQL.1;Persist Security Info=False;Data Source=hxzl_dbf"
[解决办法]
Free table directory 只要指定到目录就可以了，只有 Database container 才需要指定具体的 .dbc 文件。
VB code
cn.Open "Driver={Microsoft Visual FoxPro Driver};" & _        "SourceType=DBF;SourceDB=E:\成绩\;" & _        "Exclusive=No; Collate=Machine;NULL=NO;" & _        "DELETED=NO;BACKGROUNDFETCH=NO;"