ASP.NET - Grabar en DBF

Hola a todos, quisiera q me ayuden con la sgte duda q tengo:

Estoy trabajando en ASP.Net con VB, he creado un Procedimiento en SQLServer q me genera una tabla q contiene diferentes datos, desde .Net llamo a ese Procedure y en una GridView (grilla) me muestra los datos, y lo q debo de hacer es pasar esos datos q estan en la grilla a una tabla DBF, como puedo hacerlo..... ahi les mando el codigo q estoy trabajando:

Dim strConn As String = ConfigurationManager.AppSettings.Get("cnxVFP")
Dim Conn As OleDbConnection = New OleDbConnection(strConn)
Dim cmd As OleDbCommand = New OleDbCommand()
Dim x As Integer
For x = 0 To dgName.Rows.Count - 1
Dim sql As String
sql = "insert into voucher_jc (Mes,TipoVou,Libro,Numero,Nuevo,Fecha,Cuenta,flag,MontoD,MontoH," & _
"Glosa,Subglosa,ccosto,Registro,Tdoc,NDoc,FecDoc,FecVen,CodCIA,Importe1," & _
"Valoriza ,Importe2,IMP1,IMP2,Adelanto,IGV,Fondo,Total,Moneda,TipoCam," & _
"Estado,concilia,marcacon,usuario,fecact,horact,Inaf01,Inaf02)" & _
"VALUES ('" & dgName.Rows(x).Cells(1).Text & _
"','" & dgName.Rows(x).Cells(2).Text & _
"','" & dgName.Rows(x).Cells(3).Text & _
"','" & dgName.Rows(x).Cells(4).Text & _
"','" & dgName.Rows(x).Cells(5).Text & _
"','" & dgName.Rows(x).Cells(6).Text & _
"','" & dgName.Rows(x).Cells(7).Text & _
"','" & dgName.Rows(x).Cells(8).Text & _
"','" & dgName.Rows(x).Cells(9).Text & _
"','" & dgName.Rows(x).Cells(10).Text & _
"','" & dgName.Rows(x).Cells(11).Text & _
"','" & dgName.Rows(x).Cells(12).Text & _
"','" & dgName.Rows(x).Cells(13).Text & _
"','" & dgName.Rows(x).Cells(14).Text & _
"','" & dgName.Rows(x).Cells(15).Text & _
"','" & dgName.Rows(x).Cells(16).Text & _
"','" & dgName.Rows(x).Cells(17).Text & _
"','" & dgName.Rows(x).Cells(18).Text & _
"','" & dgName.Rows(x).Cells(19).Text & _
"','" & dgName.Rows(x).Cells(20).Text & _
"','" & dgName.Rows(x).Cells(21).Text & _
"','" & dgName.Rows(x).Cells(22).Text & _
"','" & dgName.Rows(x).Cells(23).Text & _
"','" & dgName.Rows(x).Cells(24).Text & _
"','" & dgName.Rows(x).Cells(25).Text & _
"','" & dgName.Rows(x).Cells(26).Text & _
"','" & dgName.Rows(x).Cells(27).Text & _
"','" & dgName.Rows(x).Cells(28).Text & _
"','" & dgName.Rows(x).Cells(29).Text & _
"','" & dgName.Rows(x).Cells(30).Text & _
"','" & dgName.Rows(x).Cells(31).Text & _
"','" & dgName.Rows(x).Cells(32).Text & _
"','" & dgName.Rows(x).Cells(33).Text & _
"','" & dgName.Rows(x).Cells(34).Text & _
"','" & dgName.Rows(x).Cells(35).Text & _
"','" & dgName.Rows(x).Cells(36).Text & _
"','" & dgName.Rows(x).Cells(37).Text & _
"','" & dgName.Rows(x).Cells(38).Text & "')"
cmd = New OleDbCommand(sql, Conn)
Conn.Open()
cmd.ExecuteNonQuery()
Conn.Close()

en cnxVFP esta mi conexion a Fox

Cuando ejecuto el boton donde esta el codigo de arriba me sale esto:

Error: El argumento especificado está fuera del intervalo de valores válidos. Nombre del parámetro: index

Agradeceria q me ayudaran, y si supieran otra forma de hacerlo se los agradeceria.

PD. Por favor responderme a este correo [email protected]

Los indices de las celdas también van de 0 a n-1, me doy cuenta q la primer celda q llamas tiene el indice 1,

"VALUES ('" & dgName.Rows(x).Cells(1).Text & _

por el error q manda ese debe ser el problema que la última celda que mandas llamar tiene el indice 38

','" & dgName.Rows(x).Cells(38).Text & "')"

cuando debe ser el 37. Restale 1 a los indices de las celdas.