VB6.0连接SQL 2008 R2数据库时遇到问题，求解决

我从网上下载了，VB的学生档案管理系统，在还原了附带的spl数据库后，
运行VB系统一直描述数据库连接失败。以及这是系统报的调整的地方，这是书上连接的呢一部分的代码
1. 1. ，求大神帮帮忙，还需要哪里的截图我会尽快回复！谢谢了！

你用的sqloledb只能连sql 2000,而且只能在xp下用

第二张代码图: GETCONNSTR 中的连接字串DATA SOURCE="" 修改为你自己J电脑服务器名称(实例名)或者你自己电脑的ＩＰ！ 原代码是别人的电脑名称/实例名称！

Data Source = .