刘海铃图片管理系统，VB+Access源程序

'''引用 MS ActiveX Data Objects 2.5 LibraryOption ExplicitPrivate Sub Command1_Click() '按钮功能:保存图片路径Dim Con As ConnectionSet Con = New ConnectionCon.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;data source=D:\db1.mdb;" '数据改为你自己的Con.Open '打开数据库Con.Execute ("insert into tb1(imgPath) values('D:\test\a.bmp')") '在db1的tb1表的imgPath字段插入一条新数据,内容为: D:\test\a.bmpIf Con.State = adStateOpen Then Con.Close '关闭数据库连接Set Con = NothingEnd Sub