What am I doing wrong? When I select a row in a DBGrid and I click my delete button it's supposed to delete the row from the grid. The first time through it doesn't, but if I selecet a second row to delete the DBGrid refreshes and both rows are gone. if I select a 3rd and click the delete button, the row deletes and the DBGrid refreshes deleting the row. Why is it the first time through the DBGrid never refreshes, but other subsequent times it does.

Private Sub cmdDelete_Click()

Dim I As Long

If DBGrid1 = "" Then
Call subErrorRoutine("You cannot delete a record when there is no data present.", 0)

With DBGrid1
'Debug.Print .Row

If .Row >= 0 Then
' Confirm Delete
If MsgBox("Do you really want to Delete this Record?", vbQuestion + vbYesNo + vbDefaultButton2, "Delete record") = vbYes Then
' Delete current row

'NOTE: for .RowBookmark current Row must be visible
Call DeleteRow(.Row)

End If

MsgBox "You must select a row to Delete!", vbExclamation + vbOKOnly, "Delete record"
End If

With frmSendEmail.datMedia.Recordset
frmSendEmail.datMedia.RecordSource = "SELECT * FROM TRANSACTIONS"
End With

End With
End If
End Sub