在本地计算机上通过网络建一个网络的SQL SERVER帐户,连接和本地帐户一样写。或者通过网络建一个ODBC就行了。
Private Conn As ADODB.Connection
Private Rs As ADODB.Recordset
Private Cmd As ADODB.Command
Public Sub OpenSQLServer() '打开连接
Set Conn = New ADODB.Connection
Conn.ConnectionString = "ODBC名称"
Conn.CursorLocation = adUseClient
Conn.Open
Set Rs = New ADODB.Recordset
Rs.ActiveConnection = Conn
Set Cmd = New ADODB.Command
Cmd.ActiveConnection = Conn