nb = DCount("*","NomRequete") 

 rst.Recordcount 

rst.MoveLast 

CurrentDb.CreateQueryDef("MaReqCreee", "Select * FROM Table1")

Dim qdf As DAO.QueryDef 
Dim rcs As DAO.Recordset 

  'référence à la requête 
Set qdf = CurrentDb.QueryDefs("NomQuery") 

  'code qui utilise qdf 
  'par exemple 
qdf.Parameters("NomParamètre") = valeur     '<== si requête paramétrée 
qdf.Execute                                 '<== si requête action 
Set rcs = qdf.OpenRecordset                 '<== pour travailler sur les données 


  'libération de la référence 
Set qdf = Nothing

Function testQuery(strName As String) As Boolean
'Pour fonctionner ce code nécessite la référence
'   - Microsoft DAO X Object Library
On Error GoTo err
    Dim oDb As DAO.Database
    Dim oQdf  As DAO.QueryDef
    
    'Accède à la base de données courante
    Set oDb = CurrentDb
    Set oQdf = oDb.QueryDefs(strName)
    'Retourne Vrai
    testQuery = True
    
fin:
    'Libère les objets
    Set oDb = Nothing
    Set oQdf = Nothing
    Exit Function
err:
    'Remonte toutes les erreurs différents de l'erreur 3265
    '(la requête n'existe pas)
    
    If err.Number <> 3265 Then
        err.Raise err.Number, err.Source, err.Description
    End If
    Resume fin

End Function

MsgBox testQuery("RqtClasses")

Sub test()
Const QUERYTYPE = 5
'Teste l'existence de la requête RqtClasses
If DLookup("Type", "MSysObjects", BuildCriteria("Type", dbInteger, QUERYTYPE) & _
        " AND " & BuildCriteria("Name", dbText, "RqtClasses0")) = 5 Then
    MsgBox "La requête existe"
Else
    MsgBox "La requête n'existe pas"
End If
 
End Sub

Select * From TABLE1 In 'C:\MesDocuments\mabase.mdb\' ;

Public Function sansAccent(ByVal Chaine As String, EnMajuscule As Boolean) As String
Chaine = LCase(Chaine)
Chaine = Replace(Chaine, Chr(232), "e")
Chaine = Replace(Chaine, Chr(233), "e")
Chaine = Replace(Chaine, Chr(234), "e")
Chaine = Replace(Chaine, Chr(235), "e")
Chaine = Replace(Chaine, Chr(249), "u")
Chaine = Replace(Chaine, Chr(250), "u")
Chaine = Replace(Chaine, Chr(251), "u")
Chaine = Replace(Chaine, Chr(242), "o")
Chaine = Replace(Chaine, Chr(244), "o")
Chaine = Replace(Chaine, Chr(254), "o")
Chaine = Replace(Chaine, Chr(255), "y")
Chaine = Replace(Chaine, Chr(224), "a")
Chaine = Replace(Chaine, Chr(225), "a")
Chaine = Replace(Chaine, Chr(226), "a")
Chaine = Replace(Chaine, Chr(238), "i")
Chaine = Replace(Chaine, Chr(239), "i")
chaine = Replace(chaine, Chr(244), "o")
If EnMajuscule Then Chaine = UCase(Chaine)
sansAccent = Chaine
End Function

SELECT * FROM MaTable WHERE SansAccent(MonChamp,True)=sansaccent("élève",true)

 Dim db as Database
    Dim LSQL as String
 
    Set db = CurrentDb()
    LSQL = "INSERT INTO ..."
 
    db.Execute LSQL
 
    MsgBox CStr(db.RecordsAffected) & " enregistrements insérés."

 Dim cnn As New ADODB.connection, iAffected As Integer
    Dim sSQL As String
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= Nomdemabase;"
    sSQL = "INSERT INTO ..." 
    ' Exécution de la requête
    cnn.Execute sSQL, iAffected, adExecuteNoRecords
    Debug.Print "Enregistrements insérés = " & iAffected
    cnn.Close