Visual Basic - traspasar datos de un datagrid a una grilla

hola amigos de la web

tengo una consulta para ustedes

bueno tengo un data grid y lo que quiero es cargar los datos de la datagrid a una grilla
lo que pasa es que cual seria la propiedad o funcion para la cual traspasar a la grilla por cualdo traspaso me traspasa el contenido de una solo dato y necesito que se mueva las columnas y despues de llegar a la ultima columna aumente la fila pero todo eso cargarlo
a una grilla que se encuentra en otro formulario

bueno esto es parte del codigo:????

Private Sub Command3_Click() ' en este coman elijo unos parametros de fecha y despues
los mando asia un datagrid
On Error GoTo LoadErr
Set rs = Nothing
rs.Open "SELECT caja_chica.Num_docu as n_docu, caja_chica.provee as Proveedor, caja_chica.nombre_docu as Documento, caja_chica.justificacion as Justificacion , caja_chica.patente as Patente, caja_chica.fecha as Fecha, caja_chica.monto as Monto, caja_chica.usuario as Usuario, caja_chica.centro_costo as Centro_costo, caja_chica.rut_empresa as Empresa, caja_chica.gasto as Cuentas,caja_chica.tipo_g as Tipo_cuentas, caja_chica.rendicion as Rendicion, caja_chica.cod_caja as Cod_caja FROM caja_chica where caja_chica.usuario = '" & Combo2.Text & "' and caja_chica.rut_empresa = '" & Combo1.Text & "' and caja_chica.fecha >= #" & CDate(Text1.Text) & "# And caja_chica.fecha <= #" & CDate(Text2.Text) & "# order by fecha", Conex, adOpenDynamic, adLockOptimistic

If Not rs.EOF Then
Set DataGrid1.DataSource = rs

Else
MsgBox "datos de seleccion de fecha son incorecctos/ o no existe datos", vbExclamation
rs.Close
Exit Sub
End If

' para cargar un data grid no es necesario cerrar el recorset
Exit Sub
LoadErr:
MsgBox Err.Description, , "ERROR DE SISTEMA"
End Sub
-----------------------------------------------------------------------------------------------------------------------------
Private Sub Command4_Click() 'en este coman necesito mandar los datos de el datagrid
a la grilla pero ahora manda solo el primer contendo
On Error GoTo E
Dim d As Integer, i As Integer

For i = 1 To 100
'IR MOVIENDO LA GRILLA
Form2.grd1.AddItem DataGrid1.text
Next i

Unload Me
E:
MsgBox Err.Description
End Sub