ขอถามเรื่อง SQL คำสั่ง BETWEEN ของ Datetime ค่ะ รบกวนด้วยค่ะ

   Private Sub BtnSearch_s_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSearch_s.Click
        Open_Datas()
        Dim sqlSearch As String
        Dim dr As MySqlDataReader
        Dim dt As DataTable
        Dim comSearch = New MySqlCommand
        sqlSearch = ""

        Try

            Dim D1, M1, Y1, Timelist1 As String
            D1 = DateAndTime.Day(dtpTimeIn.Value()).ToString("00")
            M1 = CSng(Month(dtpTimeIn.Value())).ToString("00")
            Y1 = CSng(Year(dtpTimeIn.Value())).ToString("0000")
            Timelist1 = (Y1 - 543) & "-" & M1 & "-" & D1

            Dim D2, M2, Y2, Timelist2 As String
            D2 = DateAndTime.Day(dtpTimeout.Value()).ToString("00")
            M2 = CSng(Month(dtpTimeout.Value())).ToString("00")
            Y2 = CSng(Year(dtpTimeout.Value())).ToString("0000")
            Timelist2 = (Y2 - 543) & "-" & M2 & "-" & D2

            'sqlSearch = "SELECT timework.*,employee.Antacedent,employee.Name,employee.Surname " _
            '                & "FROM employee INNER JOIN timework ON (employee.ID = timework.ID_Emp) " _
            '                & "where date(timework.TimeIn) ='" & Timelist1 & "' order by timework.ID_Emp asc"

            sqlSearch = "SELECT `timework`.*,`employee`.`Antacedent`, `employee`.`Name`" _
                    & " ,`employee`.`Surname`, `positionname`.`Position_name`" _
                    & " FROM `employee` INNER JOIN `positionname` ON `employee`.`Position_ID` = `positionname`.`ID` INNER JOIN" _
                    & " `timework` ON `employee`.`ID` = `timework`.`ID_Emp`" _
                    & " WHERE date(TimeIn) BETWEEN '" & Timelist1 & "' AND '" & Timelist2 & "' AND" _
                    & " `positionname`.`ID` ='" & lblId_Dep.Text() & "'"

            With comSearch
                .CommandType = CommandType.Text
                .CommandText = sqlSearch
                .Connection = Con_CallData
                .Parameters.AddWithValue("timework", MySqlDbType.VarChar).Value = dtpTimeIn.Text.Trim()
                dr = .ExecuteReader()

                If dtpTimeIn.Text = "" Then
                    MessageBox.Show("ไม่พบข้อมูล ( NO DATA DONT SHOW )")
                ElseIf dr.HasRows Then
                    dt = New DataTable()
                    dt.Load(dr)
                    DataGridView2.DataSource = dt
                    FormatALLEmployee()
                    DataGridView2.Enabled = True
                    dr.Close()
                Else
                    MessageBox.Show("ไม่พบข้อมูล ( NO DATA DONT SHOW )")
                End If
                'dr.Clear()
            End With

        Catch ex As Exception
            '  MsgBox(ex.Message)
        End Try
    End Sub