Raj,

I'll be able to look at it later. Is there any chance that you can just run a VFP .exe from the VB program? Or, call a VFP stored procedure from VB (using OLEDB)?

>Hello Steve,
>Thank you very much.
>
>Here is the code:
>I just created a sample Procedure code, Please let me know:
>

>*****************
>Private Sub Command2_Click()
>    Dim rsocd As New ADODB.Recordset
>    Dim oconn As ADODB.Connection
>    Dim rstemp As New ADODB.Recordset
>    Dim s As String
>    Dim maxno As Long
>    Dim newno As Long
>    Dim Item2 As String
>    Dim sql As String
>    Dim sqlid As String
>    Dim txtfilename As String
>
>    Dim fso As New FileSystemObject, txtfile, _
>    fil1 As File, ts As TextStream
>    FItem = File1.Path
>        'Now the Database connection
>    mytablepath
>    Set oconn = New ADODB.Connection
>    oconn.CursorLocation = adUseClient
>    oconn.ConnectionString = "Provider=vfpoledb.1;Data Source=\\Myserver\pulic\PMIS.dbc;Collating Sequence=machine"
>    oconn.Open
>    oconn.Execute ("set null off")
>
>    'Now the for Next loop
>    For i2 = 0 To File1.ListCount - 1
>        Set rsocd = Nothing
>
>       rsocd.Open "Select * from ocrdata where ID = (Select max(id) from ocrdata)", oconn, adOpenDynamic, adLockOptimistic, adCmdText
>
>        Item2 = File1.List(i2)
>        'Getting new ID
>         Set rstemp = Nothing
>
>         rstemp.Open "SELECT OCID FROM ocrdataid", oconn, adOpenDynamic, adLockOptimistic, adCmdText
>
>         If IsNull(rstemp!ocid) Then
>             newno = 1
>         Else
>             maxno = rstemp!ocid
>             newno = maxno + 1
>         End If
>         'rstemp.Update
>         rstemp.Close
>         Set rstemp = Nothing
>
>        oconn.Execute "update ocrdataid set ocid=" & newno
>
>    'Now getting the OCR content from text file (Item2)
>        txtfilename = FItem & "\" & Item2
>        Set fil1 = fso.GetFile(txtfilename)
>        Set ts = fil1.OpenAsTextStream(ForReading)
>        Do While Not ts.AtEndOfStream
>            s = ts.ReadAll
>        Loop
>        Set fil1 = Nothing
>        Set fso = Nothing
>        Set ts = Nothing
>
>        '**********Now the recordset
>        rsocd.AddNew
>            rsocd!id = newno
>            If Item2 <> "" Then
>             rsocd!tiffile = Trim(Item2)
>            End If
>            If s <> "" Then
>             rsocd!ocdata = Trim(s)
>            End If
>            rsocd!created_dt = Date
>        rsocd.Update
>
>        Item2 = ""
>        s = ""
>        rsocd.Close
>        Set rsocd = Nothing
>    Next i2
>
>End Sub
>***************** End of code******************************

>From VB i am able to do this:
>oconn.Execute ("set null off")
>
>When i tried to do the following from VB: oconn.Execute ("release all")
>
>i got error:"one or more errors occured during processing of command"