以下是引用reachtone在2010-3-5 11:56:00的发言: 在网上搜些资料,自己琢磨出来了: Dim Conn As New Data.OleDb.OleDbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Code.mdb;Persist Security Info=False") Conn.Open Dim sql As New Data.OleDb.OleDbCommand("Select * From [Code]", Conn) Try sql.ExecuteReader Messagebox.show("成功") Catch ex as Exception Messagebox.show("失败") End Try