Dim sqlroom As String
Dim daroom As SqlDataAdapter
Dim dtroom As New DataTable
sqlroom = "Select * from room where (room_id='" & room_id.Text & "')"
daroom = New SqlDataAdapter(sqlroom, mySQLConn)
daroom.Fill(dtroom)
room_start.Text = CStr(dtroom.Rows(0).Item(2).ToString)
room_end.Text = CStr(dtroom.Rows(0).Item(3).ToString)
Label12.Text = CStr(dtroom.Rows(0).Item(4).ToString)