Me.OleDbSelectCommand1.CommandText = "SELECT * FROM Kunden"
Me.OleDbSelectCommand2.CommandText = "SELECT * FROM Systemlogins"
 
        objdsKundenData.EnforceConstraints = False
        objdsKundenData.lstSystemLogins.Clear()
        objdsKundenData.Kunde.Clear()
 
         Me.OleDbDataAdapter1.Fill(dataSet)
         Me.OleDbDataAdapter2.Fill(dataSet)
         objdsKundenData.EnforceConstraints = True
 
         Call BindSystemGrid()