Insert a BD VFP 9.0 Desde VB.NET 2005

[Carlojas]

Compañeros Buenos Dias:
Mi inquietud es la siguiente desde mi aplicación debo realizar algunos registros a una BD de FoxPro 9.0, las funciones de conexion y registro que estoy utilizando son las siguientes:

Código VB:

Public Function ConexionFoxOledb() As Boolean
        Dim sCFox As String
        sCFox = "Provider=vfpoledb;Data Source=D:\Sipartmo\Contable\DATA\CONTABLE.DBC;Collating Sequence=machine;" & CnFox.State
        Try
            CnFox.CommandTimeout = 1000
            CnFox.Open(sCFox)
            Return True
        Catch ex As Exception
            MessageBox.Show("Se ha producido un error al realizar la Conexión con la Base De Datos de FOXPRO - OLEDB:" & vbCrLf & ex.Message)
            Return False
            Exit Function
        End Try
    End Function
 
'Insert
  Public Function ExecuteFox(ByVal Fconsulta As String) As String
        Dim Estado As Integer
        Try
            CnFox.Execute(Fconsulta)
            Estado = 1
            Return True
        Catch ex As Exception
            MessageBox.Show("Se Ha Producido Un Error Al Ejecutar La Consulta:" & vbCrLf & ex.Message)
            Estado = 0
            Return False
            Exit Function
        End Try
        Return Estado
    End Function
 

y Lo ejecuto de esta forma:

Código VB:

rConsulta = "INSERT INTO salarti VALUES (" & CStr(MaximoSalida) & ",'" & Registro("Fecha_sal") & "'," & CStr(Registro("ValorTotal")) & ",'" & Me.sreferencia.Text & "'," & CStr(Me.scliente.Text) & ",'1','" & UserAct & "'," & CStr(Me.cmbtsalidas.SelectedIndex) & ",'','','')"
If ExecuteFox(rConsulta) > 0 Then
     MsgBox("INSERT OK")
End If
 

Obviamente invoco la función de Conexion Con FoxPro. Para extraer los datos no hay ningún problema los puedo visualizar bien, pero a la hora de registrar datos no hace absolutamente nada, es mas no indica ningún mensaje de erro.

Les agradesco si me pueden colaborar al respecto, si estoy haciendo algo mal por favor me lo indican.


Saludos.