樓主的這個程式是寫入記事本的..如果想將資料寫入到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