vb连接Access问题

程序只能连接access95,不能连接2000版本,总是提示"不可识别的数据库"
哪位高手帮忙改下,让这个程序可以读取access2000

另外在读取大量数据时总是显示"参数不足"望高手指点

' Export the file.
Private Sub cmdExport_Click()
Dim fnum As Integer
Dim file_name As String
Dim database_name As String
Dim db As Database
Dim rs As Recordset
Dim num_fields As Integer
Dim field_width() As Integer
Dim field_value As String
Dim i As Integer
Dim num_processed As Integer

On Error GoTo MiscError

' Open the output file.
fnum = FreeFile
file_name = txtFileName.Text
Open file_name For Output As fnum

' Open the database.
Set db = OpenDatabase(txtDatabaseName.Text)

' Open the recordset.
Set rs = db.OpenRecordset( _
"SELECT * FROM Books ORDER BY Title")

' Start with the names of the fields.
num_fields = rs.Fields.C

vb连接access的问题 VB连接ACCESS的问题 vb连接ACCESS登录问题 VB连接ACCESS中的一个问题 VB与ACCESS连接的问题 求救啊！VB与Access连接问题！ vb的access连接问题，需急救!!! VB连接ACCESS 登陆设计问题 VB中连接ACCESS数据库出现问题 VB Combo连接Access数据库问题