关于OPENRECORDSET的问题,各位大虾帮忙啊,在线求救

Question

1. 我的数据库WX.MDB里有一个MAIN的表,表里有两个字段报障人和分局名称,
2,我现在的设计界面里有combolbox1和combolbox2,combolbox1里用ADDITEM方法把分局名称都显示出来,我想在COMBOLBOX2里用ADDITEM方法.把报障人字段显露出来,而要求必须是combolbox1里的分局编号对应的那条记录的报障人字段,请问下面的程序应该怎样修改.
    Dim a As Database
  Set a = OpenDatabase(App.Path & "\wx.MDB ")
strsql = "SELECT 报障人 from main where 分局名称='" & fenju.Text & "'"
Dim re As Recordset
Set re = a.OpenRecordset(strsql)
Do While Not re.EOF
    ren.AddItem strsql
    re.MoveNext
Loop
该语句运行到Set re = a.OpenRecordset(strsql)时候提示类型不匹配错误13
请问应该怎么改?

Answer 1

Dim re As Recordset
改为 Dim re As adodb.Recordset试试。

Answer 2

Dim re As new adodb.Recordset

Answer 3

试试
Set re = a.OpenRecordset(strsql,dbOpenSnapshot)
建议用ado代替dao

Answer 4

Dim re As new adodb.Recordset
Set re = a.OpenRecordset(strsql,dbOpenSnapshot)

Answer 5

Dim re As new adodb.Recordset
  这句肯定不行,两种对象
同意龙卷风