Public cnnADO As New ADODB.Connection Public rsADO As New ADODB.Recordset Public cmdADO As New ADODB.Command Function Open_DataBase() Env_Texte "Note : DataBase [Connection In Progress...]" cnnADO.Provider = "Microsoft.jet.OLEDB.4.0" cnnADO.ConnectionString = "tonfichier.mdb" cnnADO.Open rsADO.CursorType = adOpenKeyset rsADO.LockType = adLockOptimistic Set cmdADO.ActiveConnection = cnnADO cmdADO.CommandText = "SELECT * From Ta_Table_ou_Requete WHERE nomTab='" & Titre & "';" ' ne pas oublier les ' rsADO.Open cmdADO, , , adCmdTable End Function