Private Sub Combo1_SelectedIndexChanged(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles Combo1.SelectedIndexChanged
        Dim cmd As New SqlCommand
        Dim reader As SqlDataReader
        Dim con As New SqlConnection
 
        con.ConnectionString = ("Data Source=ALF-PC\SERVER;;Initial" & _
          "Catalog=Schichtbuch;Integrated Security=True;Connect" & _
          "Timeout=60;Encrypt=False;TrustServerCertificate=False")
        con.Open()
        cmd = New SqlCommand("SELECT * FROM Bezeichnungen WHERE ComboID=1", con)
        reader = cmd.ExecuteReader()
        Do While reader.Read()
            Label4.Text = reader("ComboID")
            Label5.Text = reader("Nummer")
            Label6.Text = reader("Text")
        Loop
        reader.Close()
        con.Close()