access数据库小问题

Question

Dim dbString As String
    Dim db As database
    Dim rs As Recordset
        dbString = g_Bfileroute & DBfilename         
    Set db = OpenDatabase(dbString)      Dim rsString As String
        rsString = "tabPrimObservData1"
    Dim SQLselect As String
    Set rs = db.OpenRecordset(rsString)     以上是我连接access的一段代码，程序运行到Set rs = db.OpenRecordset(rsString) 这里的时候提示错误  类型不匹配，我检查了 表名是正确的，这个问题怎么解决？

Answer 1

把 rsString = "tabPrimObservData1"
换成 rsString = "Select * From tabPrimObservData1"

Answer 2

Recordset 对象有五种类型：表、动态集、快照、动态和仅向前
你挨个试一下rs.CursorType =adOpenDynamic 
 rs.CursorType = adOpenKeyset 
rs.CursorType= adOpenStatic 
定义了类型后再给rs赋值

Answer 3

Dim dbString As String
    Dim db As database
    Dim rs As Recordset
        dbString = g_Bfileroute & DBfilename         
    Set db = OpenDatabase(dbString)  
rs.CursorType =adOpenDynamic 
    Dim rsString As String
        rsString = "tabPrimObservData1"
    Dim SQLselect As String
    Set rs = db.OpenRecordset(rsString) 
按照楼上的提示，我在上面代码的位置上分别添加了你说的代码，但是每一个都提示"对象变量或with块变量未设置"错误