Visual Basic - Ayuda para guardar reporte Vb 6.0

Q tal Buenas tardes necesito guardar reportes vb 6.0 en una base de datos access he codificado pero no lo he conseguido mi correo es [email protected] de antemano gracias... Asi lo he hecho
Private Sub CmdGuardar_Click()
Call connection
Set rs = New ADODB.Recordset
With rs
.Open "SELECT* from circuito2 where cod_circuito ='.' " & Guardar & "", conn, adOpenDynamic, adLockOptimistic

If MsgBox("¿desea guardar los cambios?", _
vbQuestion + vbYesNo, "Pregunta") = vbYes Then
MsgBox ("Guardado")
DataEnvironment4.rsdatos.Open
'ModoEditar False
End If
End With
End Sub