Error Crystal Report

[bionet_x86]

Estimados estoy haciendo el reporte pero me dice que las tablas no existen, adjunto el codigo...

En el reporte creado en crystal antes de generar todo el codigo me muestra todos los datos, porfa ayuda

Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth

End Sub

Private Sub Form_Load()

Dim SERVER
Dim databa
Dim usser
Dim pass

SERVER = "190.208.32.xxx"
databa = "asistencia"
usser = "josellop"
pass = "xxxxxx"

Dim Conexion As ADODB.Connection
Dim Consulta As ADODB.Recordset


Set Conexion = New ADODB.Connection

Conexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"Server=" & SERVER & ";" & _
"Database=" & databa & ";" & _
"User=" & usser & ";" & _
"Password=" & pass & ";" & _
"Option=3;"

Conexion.Open

WindowState = 0


Set Consulta = New ADODB.Recordset

Consulta.Open "SELECT usuarios.empresa, asistencia.rut, usuarios.nombre,asistencia.fecha, asistencia.hora_inicio, asistencia.equipo from asistencia join usuarios on asistencia.rut = usuarios.rut order by empresa,fecha asc, rut ;", Conexion, , , adCmdText


'rs.CursorLocation = adUseClient
CrystalReport1.Database.SetDataSource Consulta
CrystalReport1.PaperOrientation = crDefaultPaperOrientation
CrystalReport1.PaperSize = crPaperA4
CrystalReport1.DiscardSavedData



CRViewer1.EnableDrillDown = False
CRViewer1.DisplayGroupTree = True
CRViewer1.EnableRefreshButton = True
CRViewer1.ReportSource = CrystalReport1
CRViewer1.ViewReport
CRViewer1.Zoom 2



WindowState = 2



End Sub