vb读mysql数据表

Imports System.Data.OleDb

Module Module1
    Sub Main()
        Dim connectionString As String = "Provider=MSDASQL;Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=mydatabase;Uid=myuser;Pwd=mypassword;"
        Dim connection As New OleDbConnection(connectionString)
        
        Try
            connection.Open()
            Dim command As New OleDbCommand("SELECT * FROM mytable", connection)
            Dim reader As OleDbDataReader = command.ExecuteReader()
            
            While reader.Read()
                Console.WriteLine("ID: " & reader("id") & ", Name: " & reader("name"))
            End While
            
            reader.Close()
        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
        Finally
            connection.Close()
        End Try
    End Sub
End Module