数据库新手的问题

[JasonSeaver]

我用ACCESS2000建好了一个数据库，但是在设置recordsourse十却报错：无法识别的数据库格式，请问该如何解决

[haitao5676]

用ado吗？还是别的？

[x_bigman]

Dim sConnect As String
Dim sSQL As String
Dim dfwConn As ADODB.Connection
Dim RS As Recordset

ADO的例子
sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\YourDB.mdb;"
sSQL = "* FROM YourTable where ……"
Set dfwConn = New Connection
dfwConn.Open sConnect

Set RS = New Recordset
RS.CursorLocation = adUseServer
RS.Open sSQL, dfwConn, adOpenDynamic, adLockReadOnly, 1

[x_bigman]

DAO的例子（引用DAO3.6）：
Dim WS As Workspace
Dim DB As Database
Dim RS As Recordset
Dim SQL As String
SQL = "SELECT * FROM YourTable where ……"
Set WS = CreateWorkspace("", "admin", "", dbUseJet)
Set DB = WS.OpenDatabase("f:\WORK\zls\ZLS.MDB", True, True, ";pwd=")
Set RS = DB.OpenRecordset(SQL, dbOpenDynaset)

[x_bigman]

记得给分。VB6

[superjs]

注意引用对象的版本，这是老问题了，建议安装sp5