Visual Basic 6 - Crystal XI... Novato !!!

[bionet_x86]

Estimado yo segui tus instrucciones y me manda un error, me dice que no encuentra la tabla, podrias explicar como crear el report, por que cree la conexion y me muestra los datos en el reporte cuando lo construyo:

Dim Consulta As ADODB.Recordset
Dim strSQL As String

Set Conexion = New ADODB.Connection

Set Conexion = New ADODB.Connection
Conexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=190.208.32.XXX;" _
& "DATABASE=asistencia;" _
& "UID=XXXp;PWD=XXXXX;PORT=3306;OPTION=16 837"

Conexion.Open

WindowState = 0


Set Report = New CrystalReport1
Set Consulta = New ADODB.Recordset

strSQL = "SELECT * from usuarios "

Set Consulta = New ADODB.Recordset

With Consulta
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSQL, Conexion, , , adCmdText
End With


With Report
.Database.SetDataSource Consulta
.PaperOrientation = 1
.PaperSize = 9
.DiscardSavedData
End With

With CRViewer1
.EnableDrillDown = False
.DisplayGroupTree = False
.DisplayTabs = False
.EnableRefreshButton = True
.ReportSource = Report
.ViewReport
.Zoom (2)
End With

WindowState = 2


End Sub