Problem with Procedure Code keeps hanging up!

[Tmat]

It was running fine then I copied it to another dbase and now it keeps hanging up
On Set recClone = Me.RecordsetClone
I was using it in 97 and I am trying to use it in 2000 on a form. Any help would be appreciated.
This is part of it.
Thanks Tmat

Private Sub Form_Current()
Dim recClone As Recordset
Dim intNewRecord As Integer

'Make a clone of the recordset underlying the form so we can move around that
'without affectin the form's recordset

Set recClone = Me.RecordsetClone()

'If this is a new Recordset then disable the <Next> and <New>
'buttons and enable the others. Then exit the procedure.

intNewRecord = IsNull(Me.antAdjunctID)
If intNewRecord Then
cmdFirst.Enabled = True
cmdNext.Enabled = False
cmdPrev.Enabled = True
cmdLast.Enabled = True
cmdNew.Enabled = False
Exit Sub
End If

Tmat

 

[PaulF]

Ensure that the Microsoft DAO 3.6 Object Library is check in the Reference (Open a module in Design View - Click Tools then References.

Also you need to explicitly declare Database and Recordset objects in 2K

Dim recClone as DAO.Recordset

Dim db as DAO.Database


PaulF

 

[Tmat]

That did it! Thanks
Tmat