Afficher une requête ayant pour critère date

Fermé
edson80 - 1 juin 2010 à 15:30
Bonjour,

strConn = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Projet de mise a jour\Basededonnées\Edson80.mdb;"
strSql = "SELECT Fi_Bordereau.F_numbord, Fi_Bordereau.F_numclib, " & _
"Fi_Bordereau.F_nomclib, Fi_Bordereau.F_prenclib, Fi_Bordereau.F_libelPb, " & _
"Fi_Bordereau.F_coutPb, Fi_Bordereau.F_numopb, Fi_Bordereau.F_nomopb, " & _
"Fi_Bordereau.F_prenopb, Fi_Bordereau.F_Dateb, Fi_Bordereau.F_partAPb, Fi_Bordereau.F_partAssrPb, " & _
"Fi_Bordereau.F_ModeRgltb, Fi_Bordereau.F_NomTierceb " & _
"FROM Fi_Bordereau WHERE Fi_Bordereau.F_numopb ='" & ComboCaisseop.Text & "' AND (((Fi_Bordereau.F_partAPb)<>0)) AND Fi_Bordereau.F_Dateb Between '" & DateTimePickerCaissePD.Text & "' And '" & DateTimePickerCaissePF.Text & "' ;"

Connect = New OleDbConnection() 'Instanciation d'un Objet Connexion
Connect.ConnectionString = strConn 'Donner à la propriété ConnectionString les paramètres de connexion
Comd = New OleDbCommand(strSql) 'Instancier un objet Commande
DataAdap = New OleDbDataAdapter(Comd) 'Instancier un objet Adapter
Comd.Connection() = Connect 'initialiser l'objet Command
Comd = New OleDbCommand(strSql) 'Instancier un objet Commande
Connect.Open()
DataAdap.Fill(DatTable)
Fi_BordereauDataGridView_Assure.DataSource = DatTable
Connect.Close()
Call calcultotAssure()

Type de données incompatible dans l'expression du critère. Mon problème
Aidez moi