Vb5 ne reconait pas Database, recordset,....

Bonjour,
je vous envoi le code que j'ai fai pour que vous puissez voir où mon probleme se situe exactement:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tableau(99, 99) As String
Dim MaBase As Database
Dim DAODBEngine_definst As New DBEngine
Dim i As Integer
Dim SQLI As Recordset

Dim MaRequete As QueryDef
Dim DebutStr, FinStr As String

DebutStr = DatePart(DateInterval.Month, Debut) & "/" & DatePart(DateInterval.Day, Debut) & "/" & DatePart(DateInterval.Year, Debut)
FinStr = DatePart(DateInterval.Month, Fin) & "/" & DatePart(DateInterval.Day, Fin) & "/" & DatePart(DateInterval.Year, Fin)

MaBase = DAODBEngine_definst.OpenDatabase("Ici j'ai mis le chemin à suivre dans mon bureau")
MaRequete = MaBase.CreateQueryDef("") '
MaRequete.SQL = "SELECT [MOULES].* From MOULES WHERE (((MOULES.date) Between #" & DebutStr & "# And #" & FinStr & "#) ORDER BY (MOULES).(Date))"

SQLI = MaRequete.OpenRecordset 'Permet d'ouvrir la table MOULES

i = 0 'Remplissage d'un tableau
With SQLI
Do While Not .EOF
Tableau(i, 0) = .Fields("N°devis").Value
Tableau(i, 1) = .Fields("BERéel").value
'Ainsi de suite
i = i + 1
.MoveNext()
Loop
.Close()
End With

End Sub

Donc Vb5 ne reconnait pas Database,DBEngine,QueryDef. Il dit que ces éléments ne sont pas définis...