Imports system
Imports System.Data
Imports System.Data.OleDb

Module Module1

    Sub Main()
        Dim sConnectionString, sSQL As String
        sConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=D:\编程区\VB.NET工程\Null.MDB"
        sSQL = "SELECT 产品名称 from null ORDER BY 产品ID ASC"

        Dim MyCon As New OleDb.OleDbConnection(sConnectionString)
        Dim cmdF As New OleDb.OleDbCommand(sSQL, MyCon)
        cmdF.CommandText = sSQL
        cmdF.Connection = MyCon
        cmdF.CommandType = CommandType.Text
        Try
            MyCon.Open()
            Console.WriteLine("建立正确连接")
            Console.ReadLine()
        Catch OleDbe As OleDbException
            Console.WriteLine("连接失败")
            Exit Sub
        End Try
        Dim MyDataReader As OleDbDataReader
        MyDataReader = cmdF.ExecuteReader() 此句出现异常——不知道错在哪里了～高手指点啊
        Do While (MyDataReader.Read())
            Console.WriteLine(MyDataReader.Item("产品名称"))
        Loop
        MyDataReader.Close()
        MyCon.Close()
        Console.ReadLine()

    End Sub

End Module

[培训]《安卓高级研修班(网课)》月薪三万计划，掌握调试、分析还原ollvm、vmp的方法，定制art虚拟机自动化脱壳的方法