Visual Basic - Solo expertos en data grid y excel

Private Sub cmdtoexcell_Click()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
Dim wkbSheet As Excel.Worksheet
Dim Rng As Excel.Range
ApExcel.Cells(1, 1) = "CODIGO"
ApExcel.Cells(1, 2) = "NOMBRE PRODUCTO"
ApExcel.Cells(1, 3) = "CANTIDAD"
ApExcel.Cells(1, 4) = "FECHA INGRESO"
ApExcel.Cells(1, 5) = "STOCK ACTUAL"
ApExcel.Cells(1, 6) = "PROVEEDOR"
' Hace una Seleccion de celdas y pone bordes de Color
ApExcel.Range("A1:F1").Borders.Color = RGB(255, 0, 0)
Set Rng = ApExcel.Range("A2:" + Chr(DataGrid1.Columns.Count + 64) + CStr(Adodc1.Recordset.RecordCount))
DataGrid1.Row = 0 'se coloca el cursor en la primera fila
DataGrid1.Refresh
For I = 0 To Adodc1.Recordset.RecordCount - 1
For j = 0 To DataGrid1.Columns.Count - 1
DataGrid1.Col = j
Rng.Range(Chr(j + 1 + 64) + CStr(I + 1)) = DataGrid1.Text ' en está linea se cae
Next j
Adodc1.Recordset.MoveNext
Next I
Set ApExcel = Nothing
Set Rng = Nothing
End Sub

cuando lo bajo la 1era ves ningun problema pero al bajarlo por 2da. ves se cae y dide error '6160' en tiempo de ejecución error de acceso de datos.