VBA

Jeg har et problem med dette VBA til Access 2000.
Jeg kan ikke finde ud af at få slettet den ene "Record" i Files-tabellen.


Private Sub deleting_Click()

    If IsNull(Me!deletename) Then
        MsgBox ("Error! You Need To Enter A Number To Delete")
        Else
        Call CompareRecords(Me!deletename)
    End If
End Sub

Public Function CompareRecords(ID1 As String)
    Dim rs1 As DAO.Recordset
    Dim Besked As String
    'DoCmd.SetWarnings False
    Set rs1 = CurrentDb.OpenRecordset("Select * From Files Where DeleteNr = '" & ID1 & "'", dbOpenSnapshot)
    If rs1.RecordCount = 0 Then
        MsgBox ("Error! You Need To Enter A Number That Exists")
        Exit Function
        Else
        answer = MsgBox("Are You Sure That You Want To Delete The File", vbYesNo)
        If Not answer = 6 Then
            MsgBox ("Delete Was Cancelled")
            Exit Function
            Else
----->      'Delete record in Files table. <-------
        End If
    End If
    'DoCmd.SetWarnings True
    rs1.Close
    Set rs1 = Nothing
End Function