Añadir una fila a un datagrid

[franko1809]

• Cargo los registros de una tabla en un datagrid con un recordset y quiero agregarle mas filas al datagrid mediante otro recordset pero este es temporal, es decir existen 2 recordset
• Con el command1 cargo los registros del tabla al datagrid1 y quiero que con el command2 se agrege una o mas filas con otro recordset pero en la grilla deben mantenerse los registros de l primero.

En resumen como le sumo los datos del RsTemporal al RsDetalle algo asi
cargo la grilla asi :
Set DataGrid1.DataSource = rsDetalle
y quiero agregarle filas a la grilla con este otro recordset :
Set DataGrid1.DataSource = RsTemporal

De todos modos dejo el codigo:

Código:

Dim RsTemporal As New Recordset
Dim rsDetalle As New Recordset

Sub ActivaTemporal()
    'Creando recordset temporal
    RsTemporal.CursorType = adOpenStatic
    RsTemporal.Fields.Append "CodProd", adVarChar, 4, adFldIsNullable
    RsTemporal.Fields.Append "NomProd", adVarChar, 250, adFldIsNullable
    RsTemporal.Fields.Append "PrecioVenta", adDouble, 10.2, adFldIsNullable
    RsTemporal.Open
    'Cargamos el datagrid
    Set DataGrid1.DataSource = RsTemporal
End Sub

Sub GrabaTemporal()
  RsTemporal.AddNew
  RsTemporal.Fields(0) = Text1.Text
  RsTemporal.Fields(1) = Text2.Text
  RsTemporal.Fields(2) = Text3.Text
  RsTemporal.Update
End Sub

Private Sub Form_Load()
ActivaTemporal
End Sub

Private Sub Command1_Click()
  'Cargamos la grilla con la tabla detalle
   Set rsDetalle = New Recordset
   rsDetalle.Open "SELECT * FROM Detalle", dbConex, adOpenStatic, adLockOptimistic
   Set DataGrid1.DataSource = rsDetalle
End Sub

Private Sub Command2_Click()
  GrabaTemporal
End Sub