Text1(0) = strAusgabe
  Text1(1) = Split(Text1(0), "$")(0)
  OK = MsgBox("Möchten Sie " & Text1(1) & " wirklich löschen?", vbQuestion + _
    vbYesNo, Me.Caption)
    If OK = 6 Then
    SQL = "SELECT * FROM " & Tabelle & " WHERE " & " " & Datensatz & " = '" & _
      Text1(1) & "'"
Set Rst = Db.OpenRecordset(SQL)
If Rst.EOF And Rst.BOF = True Then
      MsgBox "Beim löschen von  " & Text1(1) & " ist ein Fehler aufgetreten," & _
        "Überprüfen Sie ob " & Text1(1) & " vorhanden ist.", vbCritical + _
        vbOKOnly, Me.Caption
      Refresh1
End If
 Rst.Delete
  Rst.Update
   Refresh1
  End If