Public Sub KundeHinzufügen()
 
        Dim SQL As String
        Dim strnamehinzu = txtnamehinzu.text.trim
        Dim strnrhinzu = txtnrhinzu.text.trim
 
 
        SQL = " INSERT INTO TESTDTA.STAMMDAT(PROJEKTNR ,PROJEKTNAME) VALUES('" _
          + strnrhinzu + "', '" + strnamehinzu + "')"
 
' in dvkunde(Dataview) sind bereits die vorhandenen Kunden incl zugehöriger 
' 'Kundennummer enthalten)
 
cboKundeLaden(dvKunde)
    ' mit find geht garnix... bräuchte einen tip wie ich das besser machen kann 
    ' =S   
        If dvKunde.Find(strnrhinzu) = true Then
 
            MsgBox("Der Kunde wurde bereits in der Liste aufgenommen.", _
              MsgBoxStyle.Information, "Info")
        Else
 
 
            Dim cmd As New OleDbCommand(SQL, OleDbConnection1)
            Try
                'Connection wird geöffnet
                OleDbConnection1.Open()
 
                cmd.ExecuteNonQuery()
 
                MsgBoxStyle.Information, "Info")
 
            Catch ex As Exception
                MsgBox(ex.Message)
                'Connection wird geschlossen
                cboKundeLaden(dvKunde)
                OleDbConnection1.Close()
            End Try
            MsgBox("Die Kundendaten wurden gespeichert", _
              MsgBoxStyle.Information, "Info")
        End If
 
    End Sub