รบกวนแนะนำ Between Date ด้วยครับค่าที่ได้ไม่ตรงกับ Date ที่เลือก

Private Sub Run()

        connect()
        cmd = New SqlCommand("select * from F_ISS where Dateiss BETWEEN '" & A1.Value & "' AND '" & A2.Value & "'", cn)
        DR = cmd.ExecuteReader

        issall.Rows.Clear()
        While (DR.Read() = True)
            issall.Rows.Add(DR(0), DR(1), DR(2), DR(3), DR(4), DR(5), DR(6), DR(7))
        End While
        cn.Close()

    End Sub