I Have a procedure in an activex control that when I try to call I get and "Object required" error... any ideas?

Here's the code

Activex sub:

Public Sub Repopulate()
Dim DB As Database
Dim rstRecordSet As Recordset
Dim Entete As String
Dim Data As String
Dim I As Integer

Set DB = TechGrid.dsDatabase
Set rstRecordSet = DB.OpenRecordset(TechGrid.dsRecordset, dbOpenSnapshot)

Flexgrid.Rows = 2
Flexgrid.Cols = rstRecordSet.Fields.Count
Flexgrid.FixedRows = 1

'Faire les entetes de colonnes...
For I = 0 To rstRecordSet.Fields.Count - 1
If I = 0 Then
Entete = rstRecordSet.Fields(I).Name
Else
Entete = Entete & Chr(9) & rstRecordSet.Fields(I).Name
End If
Next I

'Populer la grille
rstRecordSet.MoveFirst
Do While Not rstRecordSet.EOF
For I = 0 To rstRecordSet.Fields.Count - 1
If I = 0 Then
Data = rstRecordSet.Fields(I).Value
Else
Data = Data & Chr(9) & rstRecordSet.Fields(I).Value
End If
Next I
Loop
End Sub


Now I call my procedure as so:

TechGrid1.Repopulate

Please Help.