dbFile = "C:\temp\Schule.accdb"
        DB = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data" & _
          "Source=" + _
                dbFile + ";Persist Security Info=False;")
        DB.Open()
 
        SschuelerName = Form2.ComboBox1.SelectedItem.ToString()
 
        strCmd = "select * from Schule where Name = " + """" + SchuelerName + _
          """"
        DBcomando = New OleDbCommand(strCmd, DB)
        DBdatareader = DBcomando.ExecuteReader()
        DBcomando = Nothing
 
        Try
            Do While DBdatareader.Read()
                Alter = DBdatareader.Item("Alter").ToString
                Klasse = DBdatareader.Item("Klasse").ToString
                Lehrer = DBdatareader.Item("Lehrer").ToString
                Kurs = DBdatareader.Item("Kurs").ToString
                Nationalität = DBdatareader.Item("Nationalität").ToString