CRYSTAL REPORT 8.5 - ME AJUDEM POR FAVOR

Public Sub Main()
Dim strConn         As String
Dim objPARAM        As cParametro

    On Error GoTo trataErro

    '.... codigo
    
    'Esta dll indica que usaremos SQL Server(Anteriormente escolhia entre Access e SQL Svr ... mas como Base Access foi desativada o if foi Excluido deste trecho) ... vai precisar consultar documentação para descobrir a responsável pelo MySQL ...
    g_str_CRY_DLL = "pdssql.dll"

    'Esta o local do Svr
    g_str_DATABASE_SVR = "VENDAS91"     'LDF DATABASE SVR
    'g_str_DATABASE_SVR = "LOCALHOST"   'DESENV DATABASE SVR

    'Demais parametros da Base de dados
    g_str_DATABASE_NAME = "GERAL_SQL"
    g_str_DATABASE_USER = "SA"
    g_str_DATABASE_PASS = "****"

    'String de conexão parametrizada
    strConn = "Provider=SQLOLEDB.1;" & _
              "Persist Security Info=False;" & _
              "User ID=" & g_str_DATABASE_USER & ";" & _
              "Password=" & g_str_DATABASE_PASS & ";" & _
              "Initial Catalog=" & g_str_DATABASE_NAME & ";" & _
              "Data Source=" & g_str_DATABASE_SVR

'Abaixo segue o restante do código da sub Main ...

End Sub

    'Este select refere-se a todos os campos dos detalhes do report
    strSQL = "SELECT *"
    strSQL = strSQL & " FROM Pedido, detalhe_pedido"
    strSQL = strSQL & " WHERE Pedido.id_pedido = detalhe_pedido.id_pedido"
    strSQL = strSQL & " AND Pedido.id_pedido =" & ID_PEDIDO
    strSQL = strSQL & " ORDER BY item"

    'Objeto Report refere-se a um designer Crystal que incorporo no VB
    'Nesta linha informo a dll utilizada, e demais parametros de conexão
    Report.Database.LogOnServer g_str_CRY_DLL, _
                                g_str_DATABASE_SVR, _
                                g_str_DATABASE_NAME, _
                                g_str_DATABASE_USER, _
                                g_str_DATABASE_PASS

    'Dizemos ao crystal retornar somente o selecionado
    Report.SQLQueryString = strSQL