vb连接SQL2008的语句怎么写

vb连接SQL2008的语句如何写
vb连接SQL2008的语句如何写，请教大家.

[解决办法]
http://download.csdn.net/detail/veron_04/1371356
[解决办法]

VB code

dim conn as new adodb.connectionWith conn    If .State = adStateOpen Then .Close    .ConnectionString = "driver=SQL Server;server=实例名;uid=SA;pwd=SA的密码;database=数据库名"    .CommandTimeout = 0    .OpenEnd With