สอบถามข้อมูล อยากใช้ datetime เลือกวันที่ แล้วแสดงข้อมูลใน datagridview

DIM SQLSTRING AS STRING = "SELECT * FROM TbUser WHERE UserDateTime BETWEEN @date1 AND @date2"
       objCmd = New OleDbCommand(SQLSTRING , objConn)
       objCmd.Parameters.AddWithValue("date1", DateTimePicker1.Value)
       objCmd.Parameters.AddWithValue("date2", DateTimePicker2.Value)
        Dim reader As OleDbDataReader = objCmd.ExecuteReader()
        If reader.HasRows Then
            Module1.Datatable = New DataTable()
            Module1.Datatable.Load(reader)
            DataGridView1.DataSource = Module1.Datatable
            reader.Close()
        End If