我做了个简单的调用SQL的程序，使用VB中ADCOD控件，在局域网中，一台电脑安装了SQL数据库，在另一台电脑上，可不可以只安装我编写的程序软件就能运行？需要怎么设置？怎么编写程序，提供一个例子也可以。望指导一下

数据库连接代码更改一下,原来我测试过在局域网是可以的,前提每个电脑要能测试连接到这个安装了SQL的数据库电脑

Dim mycon As ADODB.Connection
Dim rst As ADODB.Recordset
Set mycon = New ADODB.Connection
mycon.ConnectionString = "Provider=sqloledb;server=192.168.1.1;Database=sxcpmc;Uid=sa;Pwd=;"
mycon.Open
Dim stokens() As String
On Error GoTo exectuesql_error
stokens = Split(sql)
If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
      mycon.Execute sql
Else
  Set rst = New ADODB.Recordset
  rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
 Set ExecuteSQL = rst
End If