一个记录集打开的问题！

Question

我在两个工程中输入相同的代码，但是一个好用一个不好用，这是为什么，下面是代码：
Dim db As Database
Set db = OpenDatabase(App.Path & "\db1.mdb", False, False)
Dim sql As String
Dim rs1 As Recordset
sql = "select T1CodeDept.CodeDept,T1CodeDept.NameDept,T1CodeDept.AddressDept from T1CodeDept order by T1CodeDept.CodeDept"Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)两个工程的引用中的内容也一样，请各位帮帮忙

Answer 1

dbOpenDynaset改成dbopenforwardonly试试

Answer 2

是不是这样，你的工程中同时引用了DAO和ADO。
因为ADO和DAO都有Recordset对象，所以就会出现你所说的那个问题。在这种情况下应该这样申明：
Dim rs1 As Dao.Recordset
Dim rs1 As ADODB.Recordset还有Field对象等，也一样。