Question

VB Set RS = myDB.OpenRecordset("表1") 类型不匹配

Private Sub Command1_Click()
Dim myDB As Database
Dim RS As Recordset
Dim TxtFile As String
Dim DbFile As String
Dim strTemp As String
Dim StrSp() As String

TxtFile = "E:\DD.txt" '文件文件位置
DbFile = "E:\db1.mdb" '数据库文件位置

Set myDB = OpenDatabase(DbFile) '打开数据库文件
Set RS = myDB.OpenRecordset("表1") '打开数据库表1

Open TxtFile For Input As #1 '打开文本文件
Do While Not EOF(1)
Line Input #1, strTemp
StrSp = Split(strTemp, " ")
RS.AddNew
RS.Fields("ID") = StrSp(0)
RS.Fields("Name") = StrSp(1)
RS.Fields("Sex") = StrSp(2)
RS.Fields("Tel") = StrSp(3)
RS.Fields("QQ") = StrSp(4)
RS.Fields("Add") = StrSp(5)
RS.Update
Loop
Close #1

Answer 1

Dim dbP As String
dbP = App.Path & "\Access数据库路径+文件名+扩展名"
GSL = "ms access;pwd=数据库密码"
Set WorkDefault = DBEngine.Workspaces(0)
Set myDB = DBEngine.Workspaces(0).OpenDatabase(dbP, False, False, GSL)
上面是打开Access数据库的代码；打开数据表必须使用SQL语句：
SQL = "SELECT * FROM 表1"
Set RS = db.OpenRecordset(SQL)
或：
Set RS = db.OpenRecordset("SELECT * FROM 表1")

Answer 2

错的原因主要是因为ADO的操作方式跟DAO有区别。
更改工程引用 顺序,把DAO优先级提升到ADO之上

Answer 3

Set RS = myDB.OpenRecordset("表1",dbopentable)