vb6如何连接sqlserver数据库

[guoguoququ]

请指教，另需要哪些引用

[饮水需思源]

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