Grid - Reporte

[jrp01]

'Declaramos un Recordset
Dim rstemp As ADODB.Recordset


'En el Load de la forma
Set rstemp = Nothing
Set rstemp = New ADODB.Recordset
rstemp.Fields.Append "Nombre", adChar, 60 'Le agregamos las columnas y de que tipo son
rstemp.Fields.Append "Edad", adSingle
rstemp.Open
Set DataGrid1.DataSource = rstemp
'Formato del databrid
DataGrid1.Columns(1).Width = 6000
DataGrid1.Columns(2).Width = 1000
'Si no quieres que se modifiquen los campos
DataGrid1.Columns(1).Locked = True
DataGrid1.Columns(2).Locked = True



En el Boton

rstemp.AddNew
rstemp(0) = tu_Valor 'El indice es la columna Ya solo le asignas el Valor de tu variable
rstemp(1) = Tu_Valor2
rstemp.Update


Saludos