vb6怎么连接sqlserver数据库

vb6如何连接sqlserver数据库
请指教，另需要哪些引用

[解决办法]

VB code

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