Maximizer OLE automation

I'm trying to use following piece of code. When I run this code, it hangs at call to GetCurrentRecordObject. Anyone know the reason for this?

Private Sub Form_Load()
Dim objMaxAttach As New MaximizerTLB.AttachToCurrentInstance ' Define CurrentInstance object of running Maximizer
Dim objMaxCur As MaximizerTLB.CurrentRecord ' Define Current Record Object variable

Set objMaxCur = objMaxAttach.GetCurrentRecordObject ' Set objMaxCur to Current Record

' ----------------------------
' Method returns the value of
' City field in current record
' ----------------------------
sResult = objMaxCur.getFieldValue("City")

' ---------------
' Display Results
' ---------------
MsgBox sResult

Set objMaxCur = Nothing ' Release object
Set objMaxAttach = Nothing ' Release Object
End Sub