Ayuda URGENTE!! con DataReport

[ropaba]

Hola. Espero que me puedan ayudar con este problema que tengo, tengo una base de datos en access conectada con un data a visual basic, y lo que quiero hacer es imprimir con un datareport una consulta, pero me salen errores al momento de ejecutar el programa. Este es el codigo que utilizo

Dim rsFicha As ADODB.Recordset

Set rsFicha = New Recordset

rsFicha.Open "Select * FROM cheques Where beneficiario =" & Text5.Text, cn, adOpenStatic, adLockReadOnly

If rsFicha.RecordCount > 0 Then

Set DataReport1.DataSource = rsFicha

DataReport1.Show
Else
MsgBox "No hay registro para imprimir ", vbInformation
End If

Porfavor ayudenme. Es muy Urgente.
Gracias.
Saludos