Crystal Report - no me funciona...

tengo algunos códigos para un reporte:

Private Sub Form_Load()
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.ConnectionString = "C:\encanto\integrl97.mdb"
cnn.Open
End Sub

Private Sub imprimir_Click()
If DataCombo1 <> "" Then
strFormula = "({datosgen.curso}='" & ensayo.DataCombo1.Text & " ')"
strlistado = "Listado Generales de Alumnos"
rlistado = "c:\encanto\rpt\datosgen1.rpt"
With MDIprobando.reporte
.ReportFileName = rlistado
.SelectionFormula = strFormula
.DataFiles(0) = "C:\encanto\integrl97.mdb"
.WindowTitle = "listado por curso"
.Destination = crptToPrinter
.Connect = cnn

.Action = 1

End With
Else
MsgBox "Por favor elija un curso para imprimir", vbOKOnly
End If
End Sub

con .ACTION=1 me sale el error "20536 en tiempo de ejecución" "imposible conectar: registros de parámetros incorrectos"

si eso lo cambio por .PRINTREPORT no me sale ningún error, simplemente no hace nada. y ahí me encuentro sin ninguna solución. pues agradezco la gentileza de alguien que pueda ayudarme dandome una pista para ver que pasa con estos códigos.

gracias de antemano y saludos a todos.