สอบถามปัญหาการใช้คำสั่ง sql = select ใน VB หน่อยครับว่าใช้อย่างไร

SELECT * FROM booking WHERE idSeat='หมายเลขห้อง' AND DateBookIn='วันที่' AND status='1';

  strSQL = "SELECT * FROM booking WHERE idSeat='หมายเลขห้อง' AND DateBookIn='วันที่' AND status='1';"
                cmd = New MySqlCommand(strSQL, ConnectionDB)
                Call open_connection()
                Dr = cmd.ExecuteReader
                If Dr.HasRows Then
                 'เจอห้องที่จอง
                Else
                  'ไม่เจอห้องที่จอง
                End If