Generar reporte con CrystalReports

[DavidNovato]

BUENAS.!!!

necesito algo de ayuda.... tengo este codigo para generar el reporte.. :

Código vb:

Public Function Reportecliente() As DataTable
        Dim dt As New DataTable
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim consulta As String = "SELECT cliente.nombre, sede.nombre_sede, contacto.nombre from cliente, sede, contacto where cliente.id_cliente='" + cbocliente2.SelectedValue.ToString() + "' AND sede.id_sede='" + cbosede2.SelectedValue.ToString() + "' AND contacto.id_sede='" + cbosede2.SelectedValue.ToString() + "' "  'consulta a la tabla
        Dim comando As New MySqlCommand(consulta, MyConnect)
        Dim adap As New MySqlDataAdapter(comando)
        MyConnect.Open()
        adap.Fill(dt)
        MyConnect.Close()
        Return dt
    End Function
 

Código vb:

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
 
        Try
            Dim mireporte As New CrystalReport1
            Dim dt As New DataTable
            dt = Reportecliente()
            mireporte.SetDataSource(dt)
            frmreporte.CrystalReportViewer1.ReportSource = mireporte
            frmreporte.CrystalReportViewer1.RefreshReport()
            frmreporte.Show()
 
        Catch ex As Exception
            MsgBox("No se pudo generar el reporte", MsgBoxStyle.Critical)
            Return
        End Try
    End Sub
 

No se si eso esta bien, pro viendo tutoriales fue lo que pude sacar.... de 2 combobox elijo el cliente y la sede para que me de unn reporte de ese cliente en especifico... pro no lo genera se va por el CATCH