Crystal Report - crystal repors con visual basic

Option Explicit

Dim conn As ADODB.Connection

Public requiere As String

Public Archivo As String

Public tipos As String

Public quien As String

Public fechai As Date

Public fechaf As Date

Public almacen  As String

Public nomalmacen As String

'Dim m_report As New facsp

Dim remissql As ADODB.Recordset

Dim empresa As ADODB.Recordset

Dim crystal As CRAXDRT.Application

Dim Report As CRAXDRT.Report

Dim sqltext As String

Private Sub Form_Load()

Dim dummy As Variant

Dim mrec As String

Dim DbPrueba As Database

Dim x, y As String

Archivo = Space(200)

frmreport1.WindowState = vbMaximized

 ' iniciamos los objetos de las bases de datos

Set conn = New ADODB.Connection

  'Set tablasuc = New ADODB.Recordset

  'tablasuc.CursorLocation = adUseClient

  conn.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=katamaran; User=root;Password=byhoka28;Option=3;"

    sqltext = "select * from reg_katamaran" & _

    "where fecha_sis >='" & Format(fechai, "yyyy-mm-dd") & "' and fecha_sis <='" & Format(fechaf, "yyyy-mm-dd") & "'"

Set remissql = New ADODB.Recordset

remissql.Open sqltext, conn, adOpenDynamic, adLockOptimistic

' aplicacion de Cristal reports

Set crystal = New CRAXDRT.Application

'If tipos = "C" Then

Set Report = crystal.OpenReport(App.Path & "\REPORTE_COMISIONES.rpt")

Report.ReportTitle = "Reporte del : " & fechai & " al : " & fechaf

Report.DiscardSavedData

Report.Database.SetDataSource remissql

Report.SQLQueryString = sqltext

CRViewer1.ReportSource = Report

CRViewer1.ViewReport

remissql.Close

Set remissql = Nothing

conn.Close

Set conn = Nothing

Set crystal = Nothing

Set Report = Nothing

End Sub