请问我这段代码有什么问题吗？

  Dim adoCon As ADODB.Connection
  Dim adoRec As ADODB.Recordset
  Set adoCon = New ADODB.Connection
  Set adoRec = New ADODB.Recordset
  
  Dim strSql As String
  Dim strCon As String
  strCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;"
  strCon = strCon + "Initial Catalog=test;Data Source=(local)"
  adoCon.ConnectionString = strCon
  adoCon.Open
  strSql = "select * from t_test1"
  adoRec.Open strSql, adoCon, adOpenDynamic, adLockOptimistic
  Set DataGrid1.DataSource = adoRec
为什么总报这个错误：行集合不能作为标签。