For i As Integer = 0 To CLB_Bestuhlung.Items.Count - 1
            If CLB_Bestuhlung.GetItemChecked(i) = True Then
                'AUSLESEN DER NEUEN rm_ID zum SPEICHERN IN tblRaumbestuhlung 
                ' --> Zugehörigkeit
                Dim raumauslesen As String = txtRaumnummer.Text
                Dim sql_command_RaumID As SqlCommand = New SqlCommand("SELECT" & _
                  "rm_ID FROM tblRaum Where rm_Nummer = '" & raumauslesen & _
                  "'", SqlConnection1)
                Dim sql_command_RaumCheck As SqlCommand = New SqlCommand( _
                "SELECT rm_Nummer FROM tblRaum Where rm_Nummer = '" & _
                raumauslesen & "'", SqlConnection1)
                Dim dataReader_RaumID As SqlDataReader
 
                sql_command_RaumID.Connection = SqlConnection1
 
                dataReader_RaumID = sql_command_RaumID.ExecuteReader()
                Do While dataReader_RaumID.Read
                    txtTest.Text = dataReader_RaumID("rm_ID").ToString()
                Loop
 
                DataRow_Bestuhlung("rmbest_rm_ID") = txtTest.Text
                DataRow_Bestuhlung("rmbest_best_ID") = i + 1
 
                dataReader_RaumID.Close()
 
 
                DataSetBestuhlung.Tables("tblRaumbestuhlung").NewRow()
 
                DataSetBestuhlung.Tables("tblRaumbestuhlung").Rows.Add( _
                  DataRow_Bestuhlung)
            End If
 
 
        Next
        SqlDataAdapter4.Update(DataSetBestuhlung)