Dim connString As String = "Database=test;Data Source=localhost;User" & _
          "Id=root;Password="
        Dim cn As New ByteFX.Data.MySqlClient.MySqlConnection(connString)
        Dim sCon As String = "FILEDSN=c:\ml\ml_dbase;DefaultDir=c:\ml;"
        Dim _cn As New OdbcConnection(sCon)
        cn.Open()
         _cn.Open()
 
        Dim ds As DataSet = New DataSet
        Dim selStr As String = "SELECT *  FROM DIAGNOSE"
        Dim da As New OdbcDataAdapter(selStr, _cn)
 
        da.Fill(ds, "DIAGNOSE")
        Dim dt As New DataTable
        da.Fill(dt)