用VB修改Access字段

Dim conn As New ADODB.Connection
Dim sql As String
FileName = "d:\db1.mdb"
DbPw = "操作员密码"
conn = "provider=microsoft.jet.oledb.4.0;persist security info =false;data source=" & FileName & ";Jet OLEDB:Database Password=" & DbPw
conn.Open
sql = " update box set box.jin =box.jin+12"
conn.Execute sql
conn.Close
Set conn = Nothing