下面这段代码 能在 局域网 中运行吗？？

Question

Dim objconnection As Connection
Dim objht As Recordset
Set objconnection = New Connection  '连接数据库
With objconnection
    .Provider = "SQLOLEDB"
    .ConnectionString = "User ID=sa;PWD=123;Data Source=(local);Initial Catalog=xxgl"
    .Open
End With
Set objht = New Recordset   ’打开一个库
With objht
Set .ActiveConnection = objconnection
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .LockType = adLockOptimistic
    .Open "select hth from ht"
 If .RecordCount > 0 Then
    .MoveFirst
    End If
    .Find ("hth='" & Trim(Text1) & "'")

Answer 1

上面这段程序 在局域网运行时  当多个用户同时访问 会不会产生 冲突 
需不需要 改成 ado.conn... 什么的

Answer 2

With objconnection
    .Provider = "SQLOLEDB"
    .ConnectionString = "User ID=sa;PWD=123;Data Source=(local);Initial 
这地方我觉的有问题,在局域网运行时,应该是这样的
With objconnection
    .Provider = "SQLOLEDB"
    .ConnectionString = "User ID=sa;PWD=123;Data Source=数据库服务器IP地址或是数据库服务器名称;Initial