Message d'erreur

Bonjour

Quand je clique sur le bouton OK pour faire le filtre entre deux heure différentes , heure début et heure fin j'ai une message d'erreur qui dit:
erreur de syntaxe dans la date dans l'expression 'vente.heurevente between #0/0/0# and #0/0/0# '

voici le code :
Private Sub cmdOK_Click()
On Error GoTo rech
Dim strQuery As String
strQuery = "SELECT Vente.DateVente, LotStock.LibelleMedicament, ventemed.Quantité, Vente.MontantVente, Vente.heurevente FROM Vente INNER JOIN (LotStock INNER JOIN ventemed ON LotStock.CodeMedicament = ventemed.codemed) ON Vente.NumeroVente = ventemed.numVente = ventemed.numVente where Vente.heureVente between   # " & Hour(Txtdate1.Text) & "/" & Minute(Txtdate1.Text) & "/" & Second(Txtdate1.Text) & " # and  # " & Hour(Txtdate2.Text) & "/" & Minute(Txtdate2.Text) & "/" & Second(Txtdate2.Text) & " # "
Adodc1.RecordSource = strQuery
Adodc1.Refresh
  Exit Sub
rech:
  MsgBox Err.Description

End Sub

Salut

Pourquoi ne pas essai avec ce code la :

Private Sub cmdOK_Click()

Try

          Dim strQuery As String = String.Empty

         strQuery = "SELECT Vente.DateVente, LotStock.LibelleMedicament, ventemed.Quantité, Vente.MontantVente, Vente.heurevente FROM Vente INNER JOIN (LotStock INNER JOIN ventemed ON LotStock.CodeMedicament = ventemed.codemed) ON Vente.NumeroVente = ventemed.numVente = ventemed.numVente where Vente.heureVente between ('" & Hour(Txtdate1.Text) & "/" & Minute(Txtdate1.Text) & "/" & Second(Txtdate1.Text) & " ' and  ' " & Hour(Txtdate2.Text) & "/" & Minute(Txtdate2.Text) & "/" & Second(Txtdate2.Text) & " ')"

            Adodc1.RecordSource = strQuery

            Adodc1.Refresh()

            Exit Sub

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

J'ai une petite remarque pour toi au lieu d'utiliser trois textbox pour avoir l'heur vous pouvais utiliser un MaskedTextBox  et dans la propriété setMask définie la format que vous voulez