Anyone can help me check my Activex Control???

I need someone which is well-verse in Activex Control to check my program.

When i delete away the UserControl1 and tried to call it back it encounter the " Error 91 " .

Can anyone help me to solve this problem?:confused: :confused:

My attached zip file is right at the bottom

VB Code:

Private Sub UserControl_InitProperties()
    If Not (db Is Nothing) Then
        Set rstemp = db.OpenRecordset("Select * from " & Data1.RecordSource & " Where " & Text1.Text & " ='" & Text3.Text & "'", dbOpenDynaset)
        Text4.Text = rstemp(Text2.Text)
    End If
End Sub

should take care of err91