Trabalhar com datas para mim foi uma luta, uma dica aqui outra ali, até que consegui alguma coisa, espero ajudar.

Dim data As String = textbox.Text

        Try

            'COMANDO PARA CARREGAR OS DADOS

            carregaLista(lista, "select CAMPO from TABELA where CAMPO=" & "#" & data & "# order by CAMPO")

        Catch ex As Exception

        End Try

carregaLista(lista, "select CAMPO from TABELA where CAMPO between #" & dtpdatainicio.Text & "# and #" & dtpdatafim.Text & "#")

Dim limite As Date

        Dim dif As Long

        Dim valor As Integer

        limite = txtdatalimite.Text

        dif = DateDiff("d", limite, Today)

        valor = dif

Datainicial = Format(datainicial, "mm/dd/yyyy")

        DataFinal = Format(datafinal, "mm/dd/yyyy")

        "select * from tabela where Data Between " & "#" & DataInicial  & "# and #" & DataFinal &"#"

        ' as datas passadas como parametro numa consulta SQL devem ser passadas como(MES / DIA / ANO)

' OUTRAS

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Obtem data e hora atual do sistema

        MsgBox(Date.Now)

        'Obtendo dia da semana

        MsgBox(String.Format("{0:dddd}", Now))

        'Soma 20 dias a data atual

        MsgBox(Date.Now.AddDays(20))

        'Subtrai 15 dias da data atual

        MsgBox(Date.Now.AddDays(-15))

        'Exibe uma mensagem informando se o ano é bissexto

        If Date.IsLeapYear(2007) = True Then

            MsgBox("Ano Bissexto")

        Else

            MsgBox("Ano Não Bissexto")

        End If

        'Exibe o número de dias do mês para  o ano de 2007 e mes 2

        MsgBox("O numero de dias do mês é: " & Date.DaysInMonth(2007, 2))

    End Sub

Não se esqueça de agradecer recomendando o Blog.

Jacob Samuel