Visual Basic - Les doy un ejemplo para pasar un Recordset a Cryst

Dada la cantidad de consultas que hay de como pasar el resultado de una consulta sql a Crystal les paso este ejemplo
Esto codigo no se si será el mejor pero funciona
En un formulario inserten un CommandButton, DataControl copien el codigo modifiquen nombres y datos y pruebenlo.
Espero comentarios o Sugerencias
mi mail es [email protected]

'ACLARACIONES:
'El reporte debe estar creado con anticipación
'y debe contener todos los campos que figuran
'en la instruccion SQL, ya que lo unico que
'vamos a hacer con este código es filtrar
'la base de datos con la instruccion WHERE

Private Sub Form_Load()
With Control_Data
'Aca va la ruta de la BD
.DatabaseName = ("C:\Mis Documentos\MiBase.mdb")
'Aca va la instruccion sql
.RecordSource = "SELECT * FROM Tabla WHERE Campo condicion"
End With
End Sub

Private Sub Command1_Click()
With Control_Crytal
'Aca va la direccion del reporte
.ReportFileName = "C:\Mis Documentos\Report1.rpt"
'Aca decimos que lo muestre en pantalla
.Destination = crptToWindow
'Aca lo enlazamos al Control_Data
.ReportSource = crptDataControl
'Aca lo llamamos
.Action = 1
End With
End Sub