Excel下面的vba怎么连接sql server数据库

Excel下面的vba如何连接sql server数据库
在Excel中要写一段小脚本，但不知道如何连接sql   server数据库，有没有详细一点的示例！

[解决办法]
与VB中的连接方法没什么区别
Dim Cn As New ADODB.Connection
Dim provStr As String
Cn.Provider = "sqloledb "
provStr = "Server=192.168.1.2;Database=yourDBName;UID=yourID;pwd=yourPassword; "
Cn.Open provStr