VB操作ACCESS数据库数据？

我先举例一个本地操作数据库的例子，怎么才能稍加修改就可以操作远程服务器上的ACCESS数据库，只要求能添加数据到远程ACCESS数据库中。。。

这是窗体中的代码：
'添加数据
Private Sub InsertButton_Click()
'调用数据库连接过程
Call OpenConn
'执行添加sql语句
cn.Execute "Insert into Users (UserName,UserPassword) values ('" & Text3.Text & "' ,'" & Text4.Text & "')" '修改这里代码能添加text3和text4的text里内容进数据库
'调用信息窗口过程
Call msginfo("添加")
'调用数据库关闭过程
Call CloseConn
'调用读取数据库过程
Call ReadData_Click
End Sub

'删除数据
Private Sub Delete_Click()
'调用数据库连接过程
Call OpenConn
'执行删除sql语句
cn.Execute "Delete from Users where UserId=" & Text2.Text & " " '修改这里代码能删除text2.text框里数字对应数据编号，并删除此编号的数据
'调用信息窗口过程
Call msginfo("删除")
'调用数据库关闭过程
Call CloseConn
'调用读取数据库过程
Call ReadData_Click
End Sub

'读取数据库
Private Sub ReadData_Click()
'清楚屏幕信息
Me.Cls
'调用数据库连接过程
Call OpenConn
'执行查询sql语句
rs.Open "Select * from Users", cn
'读取记录集内容
While Not rs.EOF
'将记录输出到窗体上
richtextbox1.Text = richtextbox1.Text & rs("UserId") & rs("UserName") & rs("UserPassword") & Chr(10)
'text 里不能换行,你要引用 richtextbox ,加上后把 richtextbox1 改为 text
'修改这里让读出的数据显示在text1.text里并且每组数据自动换行显示
rs.MoveNext
Wend
'调用数据库关闭过程
Call CloseConn
End Sub

以下是模块中的代码：
'声明数据库连接对象
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 & "\data\Test.mdb;Persist Security Info=False;"
End Sub

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

'提示窗口
Public Sub msginfo(msg As String)
MsgBox (msg & "成功！")
End Sub

哪位高手能给个完整答案，谢谢了

如果你要是用Access数据库的话，只能使用C/S方式可以做到。

否则就只能使用MYSQL,MSSQL这样的大型网络数据库了。

操作不了远程的。除非是mssql,

d列的数据与a、b、c列数据是如何对应的，或者仅是按照顺序更新？

哈哈哈哈，改成asp网站 嘎嘎

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息