VB向Access添加数据

楼主的这个程序是写入记事本的..如果想将数据写入到ACCESS数据库..
首先要引用数据库连接驱动
在"工程"--"引用",勾选"microsoft activex date objects 2.8 library"
然后在窗口代码框中加入如下代码:

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql$
Function openconn()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\数据1.mdb" '此处为数据库相对路径
End Function
Function closeconn()
conn.Close
End Function
Private Sub Command1_Click()
Call openconn
rs.Open "select * from [表1]", conn, 1, 3
rs.AddNew
rs("姓名") = text1.Text
rs("分数") = text2.Text
rs.Update
rs.Close
Call closeconn
MsgBox "添加数据成功!"
End Sub
这样可以么？