Access 2003 vs. 2000

[susanmgarrett]

Using Access 2003, I continue to receive the "Compile Error: Error in Loading DLL" with the following code:

Public Sub s_runMe()
Dim cn As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset

Set cn = CurrentProject.Connection
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset


rs1.Open "category4createtemp", cn, adOpenDynamic, adLockOptimistic
rs2.Open "TempCategory", cn, adOpenDynamic, adLockOptimistic

rs1.MoveFirst
rs2.AddNew
rs2![fkTrack] = rs1![fkTrack]
rs2![Category] = rs1![Category]
rs1.MoveNext


Do While Not rs1.EOF
If rs1![fkTrack] = rs2![fkTrack] Then
rs2![Category] = rs2![Category] & ";" & rs1![Category]
Else
rs2.AddNew
rs2![fkTrack] = rs1![fkTrack]
rs2![Category] = rs1![Category]
End If

rs1.MoveNext

Loop

rs1.Close

MsgBox "Done"

End Sub

However, when I run the same exact code on an Access 2000 version, it works.

What can I do to import the MDB into 2003 so it will work in 2003?

Thanks.

Susan

 

[boblarson]

check your references and move the ADO reference above the DAO reference.