VB sous access

ben dans l'éditeur vb outil référence tu coches dao

merci je suis arrivé.

mais il n'accepte ce bou de code ,;utilisation incorrecte de NEW.

Public Sub ado()
Dim tdf As New DAO.Database
Set tdf = Nothing
end Sub

regarde dans la'ide à createdatabase
ou currentdb

merci.
en fait j'ai un sopuci c'etque quand je veux creer un champ il me met une erreur d'execution 13 au niveau de set FLD.
merci d'avance.
voici le code:

Public Sub ado()
Dim masession As Workspace
Dim DB1 As Database
Dim TD As TableDef
Dim FLD As Field
Dim Db As Database
Dim qdf As QueryDef
Dim chSQL As String
Dim MonJeu As Recordset

Set masession = DBEngine.Workspaces(0)
Set DB1 = masession.OpenDatabase("C:\Documents and Settings\Stagiaire Mohamed\Mes documents\access\base_democonsomm\bdconsomm.mdb")
DB1.OpenRecordset ("Base demo Consommations")
Set TF = DB1.CreateTableDef("plan_inventaire")
Set FLD = TF.CreateField("produit", dbInteger)
TF.Fields.Append FLD

End Sub

veuillez merepondre svp car je suis bloqué.

merci.

bonjour,
je n'arrive pas à faire en sorte que, dans un formulaire la valeur d'un champ "n° de fauteuil" soit nulle ou grisée dès que la valeur d'un transport soit différente de "fauteuil"