Having trouble with the delete code!

[cfd33]

I think I have got it Hack,

I didnt think about opening the recordset again. I thought I could just call it with the "Fillfields" sub.

I opened a new rs and now it appears to be working.

Yep, its working great now!! Thanks Hack. This is what I have done:

Private Sub cmdDelete_Click()
    If MsgBox("Deleting this record will completely remove it from the database!" & _
    vbCrLf & "Are you sure you wish to delete this record?", vbQuestion + vbYesNo, "Delete Record") = vbNo Then
        Exit Sub
    Else
        If Not (rs.BOF = True Or rs.EOF = True) Then
            rs.Delete
        End If
    End If
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    strSQL = "Select * From MT Order By ID ASC"
    
    rs.Open strSQL, strConnection, adOpenDynamic, adLockOptimistic
    
    ClearBoxes
    If Not (rs.BOF = True Or rs.EOF = True) Then
        rs.MoveNext <----I'm not sure, but I think I dont need this since my sql takes care of the order
        Fillfields
    End If
End Sub