Visual Basic - Consulta Urgente

Hola Amigos:
Cuando se trabaja en Access, para hacer una consulta se seleccionan los campos que tendra la consulta y se genera una pantalla con dicha información, luego se selecciona la impresora y la consulta sale impresa. Es posible hacer esto en VB, ya sea por codigo o a traves de Crystal report ( es decir que el usuario seleccione los campos y que se impriman) cualquier ayuda al respecto sera bienvenida.
Saludos.

dim DB as adodb.connection, RS as adodb.recordset

Set DB = new adodb.connection
set RS = new adodb.recordset

With DB
.Provider= "Provider=Microsoft.Jet.OLEDB.4.0"
.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
"C:\ARTanco\Artanco.mdb;Persist Security Info=False"
.Open
End With
With RS
.ActiveConnection = dBConn
.Open "Select campo1,campo2,... From Tabla Order By campo1,..."
End With

Set Mantenim.DataSource = RS
Mantenim.Show

Set dB= Nothing
Set rS= Nothing

NOTA: a)El proveedor 4.0 es access2000
el proveedor 3.51 es access97
b)debes crear un reporte, por ej. mantenim
que va a tener los mismos campos que car-
gaste en el recordset