RDS问题一问！谢！

刚写完一个登陆程序!
在本地组,一个局域网内(HUB内连接测试)完全没有问题!
但,换了一个IP段!
就无法登陆到我的数据库服务器!
在SQL里分配的用户是:IUSER_本机名,密码:1983131
有权访问BBSAREA/ADMIN表!(在本地组里已经达到目的)
但,换了一个IP段就提示:用户名或者密码错误!望告手告之!感激不尽!立即解贴!
以下是我的关键代码:
On Error Resume Next
Label7.Visible = True
load.Refresh
nam = username.Text: passwor = pass.Text
Set RDSO = New RDS.DataControl
With RDSO
.Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=IUSR_COMPY-EKG45ZNS5;PWD=1983131;Initial Catalog=BBSAREA;Data Source=COMPY-EKG45ZNS5"
.SQL = "select * from admin where name='" & nam & "' and password='" & passwor & "'"
.Server = "http://211.83.79.107"
.ExecuteOptions = adcExecSync
.FetchOptions = adcFetchBackground
.Refresh
End With
If RDSO.Recordset.EOF Then
MsgBox "错误的用户名或者密码，请重新登陆", vbInformation, "错误"
Label7.Visible = False
Else
consystem.Show
Unload Me
Label7.Visible = False
End If
If Err <> 0 Then
MsgBox "打开数据库时发生错误：" & Chr(10) & Chr(13) & Err.Description, vbCritical + vbOKOnly, "打开数据库错误！"
End If