Private Sub CBoxSystem_fuellen()
 
        ' DataSet erzeugen 
        Dim DataSetDB As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM" & _
          "Datenbanken", connectionSystem)
 
        Dim dataSetTabDB As DataSet = New DataSet()
        DataSetDB.Fill(dataSetTabDB, "Datenbanken")
 
        ' DataView auf der datenbankentabelle erzeugen 
        Dim dataViewDB As DataView = New DataView(dataSetTabDB.Tables( _
          "Datenbanken"))
 
        ' Sortierung einstellen 
        dataViewDB.Sort = "Datenbank"
 
        Me.ComboBoxDB.DataSource = dataViewDB
        Me.ComboBoxDB.DisplayMember = "Datenbank"
 
    End Sub

Private Sub anmelden()
        If txtPasswort.Text <> "" And txtUser.Text <> "" Then
 
            ' DataSet erzeugen 
            Dim DataSetUser As OleDbDataAdapter = New OleDbDataAdapter("SELECT" & _
              "* FROM user", connectionSystem)
 
            Dim dataSetTabUser As DataSet = New DataSet()
            DataSetUser.Fill(dataSetTabUser, "User")
 
            ' DataView auf der Kundentabelle erzeugen 
            Dim dataViewUser As DataView = New DataView(dataSetTabUser.Tables( _
              "User"))
 
            ' Sortierung einstellen 
            dataViewUser.Sort = "Datenbank"
 
            ' Daten suchen
            Dim indexUser = dataViewUser.Find(txtUser.Text)
            If indexUser > -1 Then
                Dim indexPW = dataViewUser.Find(txtPasswort.Text)
                If indexPW > -1 Then
                    MessageBox.Show("OK")
                Else
                    MessageBox.Show("Benutzername oder Passwort falsch")
                End If
            Else
                MessageBox.Show("Benutzername oder Passwort falsch")
            End If
        End If
    End Sub