以下是引用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
[此贴子已经被作者于2010-3-5 11:57:32编辑过]
收藏研究!