Windows Vista上的MSDataShape

Private Sub Form_Open(Cancel As Integer)
    Set cn = New ADODB.Connection
    With cn
        .Provider = "MSDataShape"
        .CursorLocation = adUseClient
        .ConnectionString = "DATA PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
         & "DATA SOURCE=c:\docs\ltd.mdb"
        .Open
    End With

    Set rs = New ADODB.Recordset

    With rs
        .Source = "SELECT * From Table1"
        .ActiveConnection = cn
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open
    End With

    Set Me.Recordset = rs
    Me.UniqueTable = "Table1"

End Sub

参考资料: http://support.microsoft.com/kb/227053/EN-US/ http://support.microsoft.com/kb/239114/en-us

• 您正在使用ODBC,是否确实创建了与您在XP计算机上使用的完全相同的ODBC数据源?

• 32 bit ODBC 数据源,64位ODBC数据源对Access不可见,Access是32位应用程序。

• Access Database Engine component .