Cita:
Iniciado por 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
Verifica la linea:
rsFicha.Open "Select * FROM cheques Where beneficiario ="
& Text5.Text & ", cn, adOpenStatic, adLockReadOnly