Private Sub Delete_Click()
    Dim result As Integer
    
    result = MsgBox("Are you sure you wish to delete this record?", vbYesNo + vbInformation, "Delete Record?")
    
    If result = vbYes Then
        frmMain.mConn.Execute "delete from cstsrvfl where fID='" & Trim(frmMain.currentID) & "'"
        MsgBox "Record deleted!"
    End If
    
    frmMain.FillView
    Unload Me
    
End Sub