ขอความช่วยเหลือแก้โค้ด ระบบล๊อกอิน (VB.net) ตรวจสอบ Username Password และ วันเวลาที่จองเอาไว้ในฐานข้อมูล

Imports MySql.Data.MySqlClient
Imports System.Data


Public Class frmLogin

frmlogin.lblnum.Text = txtnumber.Text

    'เข้าสู่ระบบ 
    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        Dim objConn As New MySqlConnection
        Dim objCmd As New MySqlCommand
        Dim strConnString, strSQL, strNUMANDDATE, strTIMETOLOCK As String

        Dim i As Integer
        i = TimeOfDay.Hour
        If i Mod 2 = 0 Then
            strTIMETOLOCK = i
        Else
            strTIMETOLOCK = i - 1
        End If


        strConnString = "Server=localhost;User Id=root; Password=1234; Database=reservations; Pooling=false"
        objConn.ConnectionString = strConnString
        objConn.Open()

        Dim checkid As Integer
        strSQL = "SELECT COUNT(*) FROM member WHERE Username = '" & Me.txtUsername.Text & "' AND password = '" & Me.txtPassword.Text &
            "'  AND member_id = '" & Me.txtmemberid.Text & "'"
        objCmd = New MySqlCommand(strSQL, objConn)
        checkid = objCmd.ExecuteScalar()

        Dim checkcomanddate As Integer
        strNUMANDDATE = "SELECT COUNT(*) FROM book WHERE book_no = '" & Me.lblnum.Text & "' AND book_date = '" & Format(Now, "yyyy-mm-dd") &
            "' AND member_id = '" & Me.txtmemberid.Text & "'"
        objCmd = New MySqlCommand(strNUMANDDATE, objConn)
        checkcomanddate = objCmd.ExecuteScalar()
        objConn.Close()
        objConn = Nothing

        If checkid > 0 Then
            If checkcomanddate > 0 Then
                tmlockwindow1.Start()
                tmmessage1.Start()
                tmtimeshow.Start()
                Me.Hide()
            Else
                MessageBox.Show("คุณไม่ได้จองเครื่องคอมพิวเตอร์ในเวลาดังกล่าว")
            End If
        Else
            MessageBox.Show("รหัสผ่านหรือรหัสประจำตัวไม่ถูกต้อง ")
        End If
    End Sub

    'ปุ่มปิด
    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        If MessageBox.Show("คุณต้องการออกจากโปรแกรมใช่หรือไม่ ?", "", MessageBoxButtons.YesNo) = DialogResult.Yes Then
            Application.Exit()
        End If
    End Sub

End Class

-- phpMyAdmin SQL Dump
-- version 2.10.3
-- http://www.phpmyadmin.net
-- 
-- โฮสต์: localhost
-- เวลาในการสร้าง: 
-- รุ่นของเซิร์ฟเวอร์: 5.0.51
-- รุ่นของ PHP: 5.2.6

SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO";

-- 
-- ฐานข้อมูล: `reservation`
-- 

-- --------------------------------------------------------

-- 
-- โครงสร้างตาราง `book`
-- 

CREATE TABLE `book` (
  `book_id` int(11) NOT NULL,
  `member_id` int(11) default NULL,
  `book_date` date default NULL,
  `book_hour` int(11) default NULL,
  `book_no` int(11) default NULL,
  PRIMARY KEY  (`book_id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;

-- 
-- dump ตาราง `book`
-- 

INSERT INTO `book` VALUES (1, 2, '2014-02-20', 1, 1);
INSERT INTO `book` VALUES (2, 2, '2014-02-28', 2, 2);
INSERT INTO `book` VALUES (3, 3, '2014-02-18', 1, 3);

-- --------------------------------------------------------

-- 
-- โครงสร้างตาราง `member`
-- 

CREATE TABLE `member` (
  `member_id` int(11) NOT NULL,
  `username` varchar(20) default NULL,
  `password` varchar(20) default NULL,
  `email` varchar(20) default NULL,
  `active_password` varchar(5) default NULL,
  PRIMARY KEY  (`member_id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;

-- 
-- dump ตาราง `member`
-- 

INSERT INTO `member` VALUES (1, 'arminfor', 'arminfor', '[email protected]', NULL);
INSERT INTO `member` VALUES (3, 'arm', 'arm', '[email protected]', NULL);