vb怎么连接sql 2000

vb如何连接sql 2000
vb如何连接sql 2000的语句

[解决办法]

VB code

dim conn as new adodb.connectionwith conn    If .State = adStateOpen Then .Close    .ConnectionString = "driver=SQL Server;server=计算机名或IP地址;uid=sa;pwd=sa的密码;database=数据库名"    .CommandTimeout = 0    .Openend 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 = 0
   .Open
end with
[解决办法]
http://download.csdn.net/source/1371356