Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库文件名.mdb;Persist Security Info=False"Adodc1.RecordSource = "数据表"Adodc1.Refresh复制此三行代码就可以,如果以后要改变数据表,只要用下面2行代码就可以说明:把你的数据库文件复制在程序文件夹里.