AJUDA CRYSTAL REPORT MYSQL

Imports MySql.Data.MySqlClient

Public Class ClsGerarRelatorio
    Dim con As New MySqlConnection([Ô]server=localhost; user id=root; password=admin; database=workshopmanager[Ô])

    Public Function GeraConsuta(Optional ByVal Campos As String = Nothing, Optional ByVal Condicao As String = Nothing) As DataSet
        Try
            Dim ds As New DataSet()
            If IsNothing(Campos) Then
                Campos = [Ô]*[Ô]
            End If
            Dim instrucaoSQL As String = [Ô]Select [Ô] & Campos & [Ô] from cliente [Ô] & Condicao
            Dim objCommand = New MySqlCommand(instrucaoSQL, con)
            Dim objDataSet As New DataSet
            Dim objSqlDataAdapter As MySqlDataAdapter = New MySqlDataAdapter(objCommand)
            objSqlDataAdapter.Fill(objDataSet)
            objCommand = Nothing
            Return objDataSet
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return Nothing
    End Function

    Public Function GeraRelatorio(Optional ByVal Campos As String = Nothing, Optional ByVal Condicao As String = Nothing)
        Dim cr As New rptClientes
        cr.SetDataSource(GeraConsuta(Campos, Condicao).Tables(0))
        frm_RelatorioClientes.CrystalReportViewer1.ReportSource = cr
        frm_RelatorioClientes.Show()
    End Function

End Class

Dim ClsGeraRelatorio As New ClsGerarRelatorio

    Private Sub btn_Relatorio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Relatorio.Click
        ClsGeraRelatorio.GeraRelatorio([Ô]cod_Cliente, nome_Cliente, contato_Cliente, tipo_Cliente, horadata_Cliente[Ô], [Ô]WHERE cod_Cliente = [Ô] & lbl_cod.Text & [Ô][Ô])
    End Sub

Create table Cliente (
cod_Cliente integer unsigned primary key not null auto_increment,
nome_Cliente varchar(160) not null,
contato_Cliente varchar(20),
observacoes_Cliente varchar(100),
horadata_Cliente varchar(30),
tipo_Cliente varchar(10),
cod_PF integer unsigned not null,
Foreign key (cod_PF) references PF (cod_PF) ON DELETE CASCADE,
cod_Telefone integer unsigned not null,
Foreign Key (cod_Telefone) references Telefone (cod_Telefone) ON DELETE CASCADE,
cod_Endereco integer unsigned not null,
Foreign Key (cod_Endereco) references Endereco (cod_Endereco) ON DELETE CASCADE) ENGINE=INNODB;

Create table PF (
cod_PF integer unsigned primary key not null auto_increment,
rg_PF varchar(30),
cpf_PF varchar(30),
dataNascimento_PF varchar(15),
sexo_PF varchar(10),
email_PF varchar(150)) ENGINE=INNODB;

Create table Telefone (
cod_Telefone integer unsigned primary key not null auto_increment,
residencial_Telefone varchar(15),
celular_Telefone varchar(15),
fax_Telefone varchar(15)) ENGINE=INNODB;

Create table Endereco (
cod_Endereco integer unsigned primary key not null auto_increment,
nome_Endereco varchar(160),
numero_Endereco varchar(8),
complemento_Endereco varchar(20),
cep_Endereco varchar(10),
bairro_Endereco varchar(30),
cidade_Endereco varchar(30),
uf_Endereco char(2),
pais_Endereco varchar(20)) ENGINE=INNODB;