怎么样用VB与SQL SERVER2000数据库进行网络联接？请详细讲解！

下面这部分程序可说是万能的数据库连接程序，几乎可以连接所有的MS数据库，自己拿去研究吧！

<%
'---------------------------------------------------
Function GetMdbConnection( FileName )
Dim Provider, DBPath

Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath(FileName)
Set GetMdbConnection = GetConnection( Provider & DBPath )
End Function

'---------------------------------------------------
Function GetSecuredMdbConnection( FileName, Password )
Dim Provider, DBPath

Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath(FileName)
Set GetSecuredMdbConnection = GetConnection( Provider & DBPath & ";Jet OLEDB:Database
Password=" & Password )
End Function

'---------------------------------------------------
Function GetDbcConnection( FileName )
Dim Driver, SourceT