Private Sub DeleteProgramm()
 
    Dim strSQL As String
 
 
    If adoConnect Then
 
            strSQL = "Delete '" & txtTable.txt * .AuftragsNr & "' FROM " & _
              txtTable.txt & " WHERE 'AuftragsNr = " & cboAuftragsNr.Text & "'"
 
            adoCN.Execute strSQL
 
        Call adoDisconnect
 
    End If
 
End Sub