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

改过来了，但是调试出了新的问题，怎么解决？
新的代码如下：
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

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

已经解决了，谢谢。