Guardar los datos de un DataGrid en la Base de datos

[Achury]

Hola a todos!!
Tengo un problemilla tengo dos dataGrid uno de ellos con los datos cargados de la base de datos y otro en blanco y lo que quiero es pasarle todos los datos al 2º Datagrid y que se guarden en otra tabla, lo que e exo es lo siguiente:

Private Sub cmd_VB_todo_Click()
Dim i As Integer
Dim a As Integer
Dim strSQL As String

Set Me.dgValorParticular.DataSource = dgValorBase.DataSource
a = dgValorBase.ApproxCount
MsgBox a
Set Me.dgValorBase.DataSource = Nothing

If MsgBox("¿Desea guardar los cambios realizados?.", vbYesNo + vbExclamation + vbDefaultButton2, "Confirme almacenamiento") = vbYes Then
For i = 0 To a - 1
Me.dgValorParticular.Col = i

strSQL = "INSERT INTO VALORES_PARTICULARES (ID_VALOR_B, ID_LOCALIZACION, VALOR) VALUES (" & dgValorParticular.Columns(0) & ",'" & dgValorParticular.Columns(3) & "','" & dgValorParticular.Columns(1) & "')"
MsgBox strSQL
cnGral.Execute strSQL
Next
End If
End Sub

Pero el subíndice esta fuera del intervalo q puedo acer?????????
Haber si alguien m puede hechar una manita

Muxas graciassssssss

[marcocho2005]

No te compliques tanto, recuerda que un datagrid esta conectado a la BD, tons lo que puedes hacer es lo siguiente
If dgValorParticular.Recordset.Recordcount > 0 Then
dgValorParticular.Recordset.MoveFirst
While Not dgValorParticular.EOF
strSQL = "INSERT INTO VALORES_PARTICULARES (ID_VALOR_B, ID_LOCALIZACION, VALOR) VALUES (" & dgValorParticular.Recordset(0) & ",'" & dgValorParticular.Recordset(3) & "','" & dgValorParticular.Recordset(1) & "')"
cnGral.Execute strSQL
dgValorParticular.Recordset.MoveNext
Wend
End If