Can someone tell me why I am receiving an "Object Variable Not Set" error
when I get to the line that reads "TableObject.MoveFirst"
(By the way, this is an ACT! 6.0 database I am trying to connect to

Sub GetActData()

Dim objDatabase As Object
Set objDatabase = CreateObject("ACTOLE.DATABASE")
objDatabase.Open "C:\Documents and Settings\MyName\My
Documents\Raj\ibs.dbf"

Dim TableObject As Object
Set TableObject = objDatabase.Contact


TableObject.MoveFirst

Dim strOutput As String
strOutput = TableObject.Data(CF_LastName)

ThisWorkbook.Worksheets("Data").Range("A1") = strOutput

Set TableObject = Nothing
objDatabase.Close
Set objDatabase = Nothing
End Sub


Thank you