Dim conn,strSql ‘定义变量
set conn = CreateObject("ADODB.Connection") ‘创建连接
conn.ConnectionString="Provider=SQLOLEDB.1;Password=rcdb@2009;Persist Security Info=True;User ID=rcdb;Initial Catalog=AMS;Data source=sql.rc.itour.com.cn,2433" ‘设置连接字符串
conn.open ‘开启连接

If conn.state=0 Then ‘如果连接状态为0，表示连接失败，写入reporter对象中，否则表示连接成功
msgbox "数据库连接失败"
conn.close
Set conn = nothing
else
msgbox "数据库连接成功"
‘conn.execute strSql ‘执行更新语句
conn.close
Set conn = nothing
End If

进入控制面板 -->  管理工具---- >数据源ODBC----> 添加--->选择sqlserver数据源--->设置相关服务器等