vb.net是怎么连接SQL 2000的?

把代码写清楚点   
最好是有注释

 谢谢了 --------------------编程问答-------------------- Private datasource As String = "Data Source=(local);Initial Catalog=(datafilename);Integrated Security=True"
 Dim cnn As SqlConnection
Dim da As SqlDataAdapter
Dim tvbl As New DataTable()
Dim SQLCommand As String
cnn = New SqlConnection(gsConSvr)
SQLCommand = "SELECT * FROM T01_Login"
adp = New SqlDataAdapter(SQLCommand, gsConSvr)
adp.Fill(tvbl) --------------------编程问答-------------------- gsConSvr就是datasource --------------------编程问答-------------------- 'database Conjunction type of access2000
'On Error Resume Next
'dim conn,connstr,dbpath
'dbpath="db/adic.mdb"
set conn=server.createobject("adodb.connection")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
'connstr="driver={SQL Server 2005};server=(local);uid=sa;pwd=11111;database=45"
'connstr="Provider=MSDASQL;DRIVER={SQL Server};SERVER=e11a69b9405;UID=sa;PWD=11111;DATABASE=45"
'connstr="Provider=SQLOLEDB;Server=.;UID=sa;PWD=1111;DATABASE=45"
'connstr=“DRIVER=SQL Server;SERVER=mssql5.ixbhsting.com;UID=5_sql2005; PWD=tianqi.;APP=;DATABASE=55_45”
'connstr="DRIVER=SQL Server;SERVER=localhost;UID=sa; PWD=111111;APP=;DATABASE=agoodic"
connstr="DRIVER=SQL Server;SERVER=msql5.ehosing.com;UID=ago45od45ic_45; PWD=tianqi.;APP=;DATABASE=ag44545"
conn.open connstr --------------------编程问答-------------------- 谢谢!!!!!!!!!!!

补充：.NET技术 ,  VB.NET