CrystalReport en VB.net avec MySQL

Imports MySql.Data.MySqlClient
Public Class Form1
   
    Dim oConn As MySqlConnection = New MySqlConnection()
 
                 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oRpt As CrystalReport1
        oRpt = New CrystalReport1
        oConn.ConnectionString = "server=localhost;user id=root;password=achref;database=mabase"
        Dim myData As New DataSet
        Dim myCommand As New MySqlCommand
        Dim MyAdapt As New MySqlDataAdapter
        Dim myDataTable As New DataTable
        Dim strQuery As String
        Dim DataSet As DataSet1
      
 
        strQuery = "select * from test"
        myCommand.Connection = oConn
        myCommand.CommandText = strQuery
        MyAdapt.SelectCommand = myCommand
        MyAdapt.Fill(myDataTable)
        oRpt.SetDataSource(DataSet)
        CrystalReportViewer1.ReportSource = oRpt
    End Sub
End Class