最简单的办法是共享文件夹
然后可以用ip也可以用计算机名
用ADO
dim AdoConnection as New Adodb.Connection
dim ConnectionString as string
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\计算机名(IP)\共享文件夹名\msdata.mdb;Persist Security Info=False"
AdoConnection.open ConnectionString
就可以了。