OLEDB and ADODB with SQL2008R2 from VB6 program

We do have accounting program based on SQL 2005 and shipping base on Custom VB6 program.
Shipping VB 6 program is pointing to accounting Database and  getting Sales Order info and then writing back to accounting once data is processed. We now upgrading accounting program to run on SQL 2008R2.  While testing connection to a new system we re-pointed VB program to new SQL server 2008R2.
We  can still pull data out but getting an error on writing back from VB to SQL. We tested security rights and it is not a problem.
Shipping Client machine with VB 6 program is running on XP SP3.
The procedure code is below I think it is using OLEDB and ADO
Some parts of the code prior to this sub references to old Foxpro SQL compatibility
Like this stament
       Set rsfox = cmdSQL.Execute

Summary: VB 6 program works fine connecting to SQL 2005 DB for read and write while with 2008 it can read but having a problem writing back to DB.

What is the easiest way to make this old code to work with SQL2008R2?
Do I need an SQL tools installed on VB client XP box?
---------------------------------------------------------------------------------------------------

Private Sub Upload_Data()
       Dim i As Integer
       Dim cnn1 As ADODB.Connection
       Dim rsfox As ADODB.Recordset
       Dim cmdSQL As ADODB.Command
       Dim PRM1 As ADODB.Parameter
       Dim PRM2 As ADODB.Parameter
       Dim PRM3 As ADODB.Parameter
       Dim PRM4 As ADODB.Parameter
       Dim PRM5 As ADODB.Parameter
       Dim PRM6 As ADODB.Parameter
       
       Dim strCnn As String
       Dim strSQL As String
   
       ' Open a connection.
       Set cnn1 = New ADODB.Connection
       'strCnn = "DSN=ERPTEST"
       'cnn1.Open strCnn
       strCnn = "Provider=SQLOLEDB.1;Password=my_password;Persist Security Info=True;User ID=sa;Initial Catalog=My_data;Data Source=My+SQL2008R"
       
       cnn1.open strCnn
       cnn1.CursorLocation = adUseClient
       
       
       ' Open a recordset based on a command object.
       Set cmdSQL = New ADODB.Command
       Set cmdSQL.ActiveConnection = cnn1
       cmdSQL.CommandText = "My_updateSp"
       cmdSQL.CommandType = adCmdStoredProc
       cmdSQL.CommandTimeout = 15
       
       Set PRM1 = New ADODB.Parameter
       PRM1.Type = adVarChar
       PRM1.Size = 7
       PRM1.Direction = adParamInput
       PRM1.value = "employe" 'Date$
       cmdSQL.Parameters.Append PRM1
       
       Set PRM2 = New ADODB.Parameter
       PRM2.Type = adInteger
       'PRM2.Size = 1
       PRM2.Direction = adParamInput
       PRM2.value = 1
       cmdSQL.Parameters.Append PRM2
       
       Set PRM3 = New ADODB.Parameter
       PRM3.Type = adVarChar
       PRM3.Size = 10
       PRM3.Direction = adParamInput
       PRM3.value = Right(Space(10) + lblOrderNumber.Caption, 10)
       cmdSQL.Parameters.Append PRM3
       
       Set PRM4 = New ADODB.Parameter
       PRM4.Type = adSmallInt
       'RM4.Size = 10
       PRM4.Direction = adParamInput
       PRM4.value = 1
       cmdSQL.Parameters.Append PRM4
       
       Set PRM5 = New ADODB.Parameter
       PRM5.Type = adSmallInt
       'RM4.Size = 10
       PRM5.Direction = adParamInput
       PRM5.value = 1
       cmdSQL.Parameters.Append PRM5
       
       'parent item
       Set PRM6 = New ADODB.Parameter
       PRM6.Type = adVarChar
       PRM6.Size = 30
       PRM6.Direction = adParamInput
       PRM6.value = 1
       cmdSQL.Parameters.Append PRM6
       
       ' Open a recordset based on an SQL string.
       Set rsfox = New ADODB.Recordset
       Set rsfox = cmdSQL.Execute
       
       
       rownumber = 0
       While Not rsfox.EOF
        rownumber = rownumber + 1
        flxOrders.AddItem Trim(Str(rownumber)) + vbTab + Trim(rsfox.Fields(0)) + vbTab + Trim(rsfox.Fields(1)) + vbTab + rsfox.Fields(2) + vbTab + rsfox.Fields(3) + vbTab + rsfox.Fields(4) + vbTab + rsfox.Fields(5)
        rsfox.MoveNext
       Wend
   
    flxOrders.rows = rownumber
   
   
End Sub
 
Private Sub CloseBox()