用VB如何访问远程Access数据库？

下面是转贴的代码,和访问自己电脑上的ACCESS *** 作是一样的,无非是登录以及访问的问题, 代码中的192.168.2.36可以换成你需要的远程电脑的IP.

========================

如果想每次都能自动通过验证

在当前目录上建立一inf文件，如Server.inf(其它格式文件也可)

文件内容如下：

net use \\192.168.2.36 "密码" /user:administrator

Private Sub Form_Load()

Dim CnStr As String

Dim Fn As Integer

Fn = FreeFile

Open App.Path & "\Server.inf" For Input As #Fn

Line Input #Fn, ServerConn

Close #Fn

Shell (ServerConn)

CnStr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source= \\192.168.2.36\c$\Program Files\Sygate\SON\Db\EventLog.mdbJet OLEDB:Engine Type=5"

Cn.Open CnStr

End Sub

1.首先在控件箱中添加“ADODC”和“DBGRID”2个控件.方法：右键点击控件箱，在d出的菜单中左键单击“部件”，在部件选项卡中选择“Microsoft ADO Date Control 6.0(OLEDB)”和“Microsoft DataGrid Control 6.0(OLEDB)”复选框，然后“确定”。这样ADODC 和DATAGRID 控件就添加在控件箱中了。 2.然后在窗体上放置放置一个adodc控件，单击控件，在属性窗口点击“connectionstring”属性右侧的带…的按钮，选择“使用字符串（C）”选项，点击“生成”按钮，在d出的“数据库链接属性”的“提供程序”选项卡中选择“Microsoft Jet 4.0 OLE DB Provider”，点击“下一步”，在“链接”选项卡中选择你的数据库，单击“测试链接”按钮，成功后单击“确定”按钮，则创建ADO Data控件的链接就成功了。在ADODC属性窗口点击“recordsource”右侧带…的按钮，选择“命令类型”为“2-adcmdtable”，设置一个表或存储过程名位记录源。在“表或存储过程名称”的下拉列表中选择你要显示的表，单击确定按钮。ADODC控件的属性设置完成。 3.在窗体上放置一个datagrid控件，单击控件，在属性窗口点击datasource，在右侧下拉菜单中选择adodc1，如果你的窗体上有多个数据源，这里下拉菜单中就会有多个选择。 4.右键单击datagrid控件，然后选择“检索字段（retrieve fields）命令，就会用数据源的记录集自动填充该控件。单击“属性”。使用“属性页”选项卡设置该控件的适当属性。 5.F5，这里就可以查看和修改了。 还有另外一种办法 在vb菜单栏点击“外接程序”，选择“可视化数据管理器”，在d出的“可视化数据管理器”窗口visadata中选择“文件”“打开数据库”选择“microsoft access”命令打开你的数据库。你的数据库的大部分信息就会在新d出的“数据库窗口”中显示了。窗口中有什么功能，自己去摸索吧，我还没完全搞清楚，只能给你讲这么多了。 打字真累啊！！

---