What line of code gives you the error?

>I found that code about nokia from internet. that gives an error :
>
>"OLE exception error: Exception code c0000005. OLE object may be corrupt."
>
>how can i solve that error. that code translated from VB by another guy. unfortunately he had not run that. VB code had worked good.
>
>VFP code:
>

> LOCAL objSMS As SMS3ASuiteLib.SMS_SuiteAdapter
> LOCAL objMess As SMS3ASuiteLib.ShortMessage
>
> LOCAL CellNum
> LOCAL TextMesg
>
> CellNum = '353863982273'
> TextMesg = 'TESTING NOKIA DATA SUITE'
>
>      objSMS = CREATEOBJECTEX('SMSAdapter.SMSAdapter.1','','')
>      objMess = .NULL. && objMess is initially a boolean with value = .F.
>      objSMS.CreateShortMsg(@objMess)
>
>      objMess.UserDataText = TextMesg
>      objMess.OtherEndAddress = CellNum
>
>      objSMS.Send(objMess)
>
>      objSMS.Terminate
>

>
>
>
>VB code:
>

> ' VISUAL BASIC CODE (WORKING)
> Dim objSMS As SMS3ASuiteLib.SMS_SuiteAdapter
> Dim objMess As SMS3ASuiteLib.ShortMessage
>
> Dim CellNum As String
> Dim TextMesg As String
>
> CellNum = '353863982273'
> TextMesg = 'TESTING NOKIA DATA SUITE'
>
>      Set objSMS = New SMS3ASuiteLib.SMS_SuiteAdapter
>      Set objMess = objSMS.CreateShortMsg
>
>      objMess.UserDataText = TextMesg
>      objMess.OtherEndAddress = CellNum
>
>      Call objSMS.Send(objMess)
>
>      Set objMess = Nothing
>      objSMS.Terminate
>      Set objSMS = Nothing
>