Unbound form (1 minute it works the next it doesn't)

[ceej]

I've been working on the form today. It worked earlier but now the recordset is not updateable.

I'm using AC2002 with ADO recordset.

Here's the code. If I use the table as a source it works, but I was using a recordset before and that was working too (not now).

Thanks for help!!

Dim cnn As ADODB.Connection
Set cnn = CurrentProject.AccessConnection

Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

With rst
.CursorType = adOpenDynamic
.LockType = adLockBatchOptimistic
End With

rst.Open "TblInvHdr", cnn
Set Me.Recordset = rst

Set cnn = Nothing
Set rst = Nothing