Private Sub Form_Load()
  Adodc1.ConnectionString = "Provider=SQLNCLI10.1;Persist Security Info=False;User ID=SKY-20180713LWG;Initial Catalog=db_SSS;Data Source=sky-20180713lwg"
  Adodc1.RecordSource = "select name from db_manpowerinfo.dbo.Table_1"
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
End Sub

adodc1.ConnectionString 有问题。
你使用 adodc 的连接向导连接下sql ，然后复制 连接字串。

"Provider=SQLNCLI10.1;Persist Security Info=False;User ID=sa，一般应该是sa用户登录;Password=这里是登录用户使用的密码;Initial Catalog=数据库名称;Data Source=这里应该是2008服务器的名称"
检查一下你的SQL Server 2008 的配置情况，2008服务器的名称必须正确，登录用户名也应该正确，登录用户密码也必须正确，三个中有一个有问题将肯定连接不上，另外数据库名称也不能有错。
你的语句中好像没有用户密码一栏，不清楚你的数据库登录不需要密码吗？或者你是用Windows方式登录的？但用户名也不对呀！！
根据您的图片，估计是你的登录用户名称有错误，其他就不知道了。
看看你的数据表的属性，就清楚了。

[此贴子已经被作者于2018-7-28 16:43编辑过]

改过来了，但是调试出了新的问题，怎么解决？
新的代码如下：
Private Sub Form_Load()
  Adodc1.ConnectionString = "Provider=SQLNCLI10.1;Integrated Security=SSPI;Persist Security Info=False;User ID="";Initial Catalog="";Data Source=SKY-20180713LWG;Initial File Name="";"
  Adodc1.RecordSource = "select name from db_manpowerinfo.dbo.Table_1"
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
End Sub

Adodc1.RecordSource = "select name from db_manpowerinfo.dbo.Table_1"
一般格式是：
Adodc1.RecordSource = "select name from Table_1"   '''好像不需要db_manpowerinfo.dbo.，仅仅是 Table_1 就可以了吧？

同意5楼的看法

 如果字段名 与 内部关键字冲突，那么用中括号把字段名括起来。

还是相同的报错，你能帮我写一段程序么，应该怎么写，就是我在数据库中建了一个表，然后我在VB中，要检索name这列。输出name这列的信息。

已经解决了，谢谢。