Call create_cn()
        cn.Open()
 
        sqlstr = "SELECT Zimmer.Belegt FROM Zimmer WHERE Zimmer.Zimmername = '" _
          & query & "';"
 
        cm.CommandText = sqlstr
        cm.Connection = cn
 
        da.SelectCommand = cm
 
        da.Fill(ds, "tmptbl")
        tmptbl = ds.Tables("tmptbl")
 
        Dim s As String
        s = tmptbl.Rows(0).Item("Belegt")
 
        If s = "Nein" Then
 
            ds.Clear()
 
            sqlstr = "SELECT * FROM Zimmer, Ausstattungen, Zimmerarten WHERE" & _
              "Zimmer.Zimmername = '" & query & "' AND Zimmer.Ausstattung =" & _
              "Ausstattungen.AusstattungsID AND Zimmer.Art = Zimmerarten.ArtID;"
 
            cm.CommandText = sqlstr
            cm.Connection = cn
 
            da.SelectCommand = cm
 
            'Try
            'da.Fill(ds, "tmptbl")
            'Catch ex As Exception
            'MsgBox(ex.ToString())
            'End Try
 
            da.Fill(ds, "tmptbl")
            tmptbl = ds.Tables("tmptbl")
 
            txtart.Text = tmptbl.Rows(0).Item("Zimmerarten-Name")
            txtbereich.Text = tmptbl.Rows(0).Item("Bereich")
            txtlage.Text = tmptbl.Rows(0).Item("Lage")
            txtausstattung.Text = tmptbl.Rows(0).Item("Beschreibung")
            txtaufwand.Text = tmptbl.Rows(0).Item("Aufwand")
            txtpreis.Text = tmptbl.Rows(0).Item("Zimmerpreis")
            cc = txtpreis.Text + " €"
            txtpreis.Text = cc
            txtbelegt.Text = tmptbl.Rows(0).Item("Belegt")
            txtdbid.Text = tmptbl.Rows(0).Item("ZimmerID")
 
        Else