怎么用vb连接远程的SQL SEVER啊？
本人在自学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
