Poner datos en un Crystal Report

Ejecuta esto en el load de tu formulario del reporte:

Dim conexion As New MySqlConnection( _
          "server=server;" + _
          "uid=usuario;" + _
          "password=password;" + _
          "database=database")

Dim adaptador As New MySqlDataAdapter("select * from tabla", conexion)
        Dim tabla As New DataTable
        adaptador.Fill(tabla)
Dim mireporte As New CrystalReport1   ''<-  cristal report .rpt
        mireporte.SetDataSource(tabla)
        Me.CrystalReportView1.ReportSource = mireporte


Asegurate que el CrystalReport1.rpt tenga los campos que solicitas en la consulta.

-> Epronix :) Espero te sirva