probleme avec la commande execute sous vba access 2003

Bonjour,
je voudrais interroger une base de données access 2003 via le code vba de access 2003 sous access 2003 apres consultation de l'aide de VBA access sous access je sasisie les codes que voici

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Public Function ty()
Dim Polic As String
Dim nom As String, prenom As String
Dim n As Integer, nb As Integer
Dim con As New ADODB.Connection
Dim requete As New ADODB.Command
Dim sp As New ADODB.Parameter
Dim record As New ADODB.Recordset
Dim Query_identitie As New ADODB.Command, Query_usage_code As New ADODB.Command, Query_usage As New ADODB.Command
Dim param_police As New ADODB.Parameter, param_code As New ADODB.Parameter
Dim Record_identitie As New ADODB.Recordset, Record_usage_code As New ADODB.Recordset, Record_usage As New ADODB.Recordset
Polic = "827/05/A/0014"
requete.CommandText = "SELECT Police, Nom, Prénom, Adresse,Telephone,Profession " & _
"FROM Clients " & _
"WHERE (Clients.Police=?);"
 
Query_usage_code.CommandText = "SELECT CodeUsage from Avenants " & _
"WHERE (Police=?);"
Query_usage.CommandText = "SELECT Libellé from Table des usages " & _
"WHERE (Code=?);"
requete.CommandType = adCmdText
requete.Prepared = True
Set sp = requete.CreateParameter("Police", adChar, adParamInput, 20, Polic)
'requete.Parameters.Append sp
requete.ActiveConnection = CurrentProject.Connection
MsgBox requete.CommandText, vbCritical, "Requet a produits :"
Set record = requete.Execute
n = record.RecordCount
record.MoveFirst
MsgBox record("Nom") & " " & record("Prénom"), vbCritical, "Requet a produits :"
 
End Function
:calim2:

mais j'ai une erreur que voici "Erreur d'exécution '-2147217904(80040e10)': Aucune valeur dennée pour 1 ou plusieurs des paramétrés requis"

s'il vous aidez moi