请教VB怎么连接网络数据库SQL SERVER

请问VB如何连接网络数据库SQL SERVER
问题如题目。
大家请帮帮忙   回答详细一点

------解决方案--------------------
dim conn as new adodb.connection
With conn
If .State = adStateOpen Then .Close
.ConnectionString = "driver=SQL Server;server=计算机名或IP地址;uid=sa;pwd=sa的密码;database=数据库名 "
.CommandTimeout = 120
.Open
End With
------解决方案--------------------
dim conn as new adodb.connection
With conn
If .State = adStateOpen Then .Close
.ConnectionString = "driver=SQL Server;server=计算机名或IP地址;uid=sa;pwd=sa;database=数据库名 "
.CommandTimeout = 120
.Open
End With