vb连接数据库的问题

我照着一本书上用VB连接sql数据库的数据库管理系统但是总是运行不过去，请各位大虾帮帮忙，这个问题困扰了我很久了……小弟不胜感激，我还没有多少分，就不能用分感谢各位大侠了……

VB code

具体错误是什么？
下面的代码可以参考：
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