本人在自学VB，做了一个简单的数据库，单机上可以运行，自己后来想通过网络链接远程的SQL SEVER。在网上看了看相关的介绍，有点迷糊，请哪位大侠帮忙指点下，主要试链接用的ADO因该怎么设置。怎么通过IP地址登陆到SQL SEVER 上！
谢谢！

Public Function conn() As Boolean
Set cn = New Connection
On Error GoTo cnerr
Dim connect As Boolean
cn.ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=AIMIN;UID=sa;PWD=11111;DATABASE=Pratice"
cn.ConnectionTimeout = 20
cn.Open
conn = True
Exit Function
cnerr:
conn = False
MsgBox Err.Description
End Function

请问楼上的大侠。不需要SQL SEVER服务器的主机IP地址马？