Run-time error 91 2

[sfunk]

Hello

I wrote a component and this is the code that I am using to access the component.

I get this error
Run-time error '91'
object variable or With block not set

It then highlights the line in red


Private Sub Command1_Click()
Dim objCRJet As JetCompactRepair.CompactRepair
Dim strPath As String
strPath = "c:\test.mdb"
objCRJet.CRGo (strPath)
MsgBox "Success"
Set objCRJet = Nothing
End Sub

What am I missing?

Thank you...
Sincerely,
steve

 

[DangerPowers]

You probably need to "Set" the variable first. Try:

Set objCRJet=New CompactRepair

 

[CajunCenturion]

Try this
Dim objCRJet As New JetCompactRepair.CompactRepair Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein