vb access 添加数据
我写了一个程序，叫做网址收藏夹，但在我输入网站地址,网站名称和网站说明,点保存的时候，下次再次运行程序的时候，上次所保存的信息都丢失了，我网友说这个要写到数据库去才可以，但我不知道如何把信息写入到数据库去，我现在建了一个数据库，名叫form,表叫做表1,表里面有网站名称，网站地址，网站说明，我想问下，我要如何做才能把我在VB程序上保存的信息输入到数据库里？希望有一个说明和一个添加信息到数据库的VB源代码给我参考。因为我从没写过写入数据库方面的VB程序，但我现在很想此刻就想了解它是怎样做到的，希望大家帮帮我！
参考答案:下面是个例子，你参考下：
提示：由于用了app.path，所以你要把工程保存了才能调试，另外data.mdb必须存放在工程的跟目录下，生成.exe文件后，应该和.exe文件在同一个目录中。
Private Sub Command1_Click()
Set Conn = CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "data.mdb"
Conn.Open Connstr
Set Rs = CreateObject("adodb.recordset")
SQL = "select * from 表名"
Rs.Open SQL, Conn, 1, 3
Rs.addnew
Rs("字段名1") = "数据1"
Rs("字段名2") = "数据2"
Rs("字段名3") = "数据3"
Rs("字段名4") = "数据4"
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub