vb 连接sql server问题 急啊！

我在使用ADODc＋datagrid连接sql server数据库的时候，为什么会老是出现一个   
叫做：未找到提供程序，该程序可能未正确安装   的错误呢？？？？？   
--------------------编程问答-------------------- 1 SQL正确安装   有正确的权限   数据库连接端口1433（好像是）
首先引用ADO
Dim conn As New ADODB.Connection
conn.ConnectionString = "Driver={sql server};server=" & SQLIP & ";uid=" & 用户名& ";pwd=" & 密码 & ";database=" & 表名 conn.ConnectionTimeout = 30 '连接超时
conn.Open
If conn.State = 1 Then '判断是否连接上了 1 = 连接 0 = 未连接
放你的代码
else
放你的代码
end if


如果连不上 你测试下用 查询分析器 看能不能连上 如果查询分析器能连上 你程序就能连上

补充：VB ,  控件