Incompréhension

Sub UpdateDataAccess_DAO()

Dim Db1 As Database

TypeVariable = VarType(NumFacture)

' Ouverture de la base de données

Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\Commandes.mdb")

' Mise à jour de l'enregistrement

If TypeVariable = 2 Then ' La variable Numfacture est de type vbInteger (2)

Db1.Execute "UPDATE Factures SET Solde= 'Oui' WHERE NoFacture = " & NumFacture

Else ' La variable Numfacture est de type vbString (8)

Db1.Execute "UPDATE Factures SET Solde = 'Oui' WHERE NoFacture = ' " & NumFacture & " ' "

End If

Db1.Close

End Sub


L'ordinateur me dit pour Dim Db1 As Database Erreur de compilation : Type défini par l'utilisateur non défini
Seriez-vous pourquoi ?