带密码的MDB数据库操作，求源码。

带密码的数据库 lhcu.mdb 数据库密码 404963
点查询按钮

查询 SMsum 表  sum 字段  把记录输出到文本框1  */该SUM字段是关键字是系统关键字

点修改按钮
执行修改，文本框2内容的值写入到sum字段里。
select [sum] from SMsum
这个知道，能否帮写出完整的呢，比如访问带密码的数据库代码参考这个例子         DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=lhcu.mdb;Jet OLEDB:Database Password=404963"
'声明数据库连接对象
Public cn As New ADODB.Connection

'声明记录集对象
Public rs As New ADODB.Recordset

Public Sub OpenConn()
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lhcu.mdb;Jet OleDb:DataBase Password=404963"
End Sub

'关闭数据库
Public Sub CloseConn()
If rs.State = True Then
    rs.Close
    Set rs = Nothing
End If
    cn.Close
    Set cn = Nothing
End Sub

'读取数据库

'************************************************************

Private Sub ReadData_Click()


'调用数据库连接过程
  Call OpenConn

'执行查询sql语句
rs.Open "Select * from SMsum", cn

'读取记录集内容
While Not rs.EOF
'将记录输出到窗体上
Text1.Text = rs("sum")
rs.MoveNext
Wend

'调用数据库关闭过程
Call CloseConn

End Sub
'***********************************************************

'修改数据

'************************************************************

Private Sub Update_Click()

'调用数据库连接过程
  Call OpenConn

'执行更新sql语句
cn.Execute "Update SMsum set [sum]=" & Text2.Text
'调用信息窗口过程
MsgBox ("修改成功!!!")

'调用数据库关闭过程
Call CloseConn

'调用读取数据库过程
Call ReadData_Click

End Sub

我是这样写的，调试正确。在本机运行可以。
然后我换其他系统的 XP  2003 WIN 7 好像都运行不了错误如下
"Run-time error '430': Class does not support Automation or does not support expected inte易做图ce."...
要做安装包安装后再运行程序

补充：VB ,  数据库(包含打印，安装，报表)