Gå med Livrem og seler

Jeg sidder her og leger lidt med noget Access DB på en VB application

Men jeg syntes at løbe ind i samme problem hele tiden

Jeg vil gerne gå med livrem og seler i en Delete funtion
Se lige her:

Private Sub Command3_Click()
Dim Slettext As String
Dim Sletnavn As String

Slettext = "Ønsker du at slette" & Chr$(13) & Chr$(13)
Sletnavn = Me.Data1.Recordset("Navn")
Slettextnavn = Slettext & Sletnavn
Svar = MsgBox(Slettextnavn, vbOKCancel)
If Svar = vbOK Then
Me.Data1.Recordset.Delete
If Me.Data1.Recordset.RecordCount >= 2 Then
Me.Data1.Recordset.MoveFirst
End If
End If

Do While Me.Data1.Recordset.EOF = False
Kr = Kr + Me.Data1.Recordset("Pris")
Me.Data1.Recordset.MoveNext
Loop

Label4.Caption = Kr
Label3.Caption = Me.Data1.Recordset.RecordCount

End Sub

Jeg skal på en eller anden måde have den til at forstå at den skal slette fra DB´en og hvis der er mere end 1 record når den har slettet så skal den stille sig på den første record, men hvis den ikke har flere records efter sletningen skal den bare slette og ikke gøre mere

Er der en eller anden venlig sjæl der lige gider kaste et blik på mine koder og fortælle mig hvor det går galt

MC