'FAZER REFERÊNCIAS NAS SEGUINTES BIBLIOTECAS NO PROJETO
'Crystal Reports Viewer Control
'Crystal Reports 8x ActiveX Desingner Rum Time Library
'No Modulo coloque o Seguinte:
Public Report As New CRAXDRT.Report
Dim Aplicacao As New CRAXDRT.Application
'****Esta a a Função de impressão para o REPORT VIEW CONTROL da Seagate
Public Sub Imprimir(Relatorio As String)
'conecta ao servidor MySql usando Driver OLE DB --- MyProv.dll
On Error GoTo Imprimir_Error
Aplicacao.LogOnServerEx "pdsoledb.dll", BD, IP, User, Senha, "OLE DB", ConexaoADO.ConnectionString
Set Report = Aplicacao.OpenReport(Relatorio) '***Setamos a Variavel do relatorio para pegar o Arquivo no Disco