CreateObject Question
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
|