求教：如何将RecordSet与DataGrid相关连？

Question

各位大虾：
    我做了如下一个简单程序，却提示：行集合不能作为标签。请问，如何才能将RecordSet与DataGrid正确关连？谢谢！Option Explicit
Dim con As New ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
  con.ConnectionString = "Provider=SQLOLEDB.1;Password=hjk;Persist Security Info=True;User ID=sa;Initial Catalog=MedRecsData;Data Source=."
  con.Open
  
  Set rs = con.Execute("Select TypeCode,TypeName From ykDrugType")
  
  If Not rs.EOF Then
    Set DataGrid2.DataSource = rs
  End If
  
  
End Sub

Answer 1

这样试试：
Private Sub Form_Load()
  con.ConnectionString = "Provider=SQLOLEDB.1;Password=hjk;Persist Security Info=True;User ID=sa;Initial Catalog=MedRecsData;Data Source=."
  con.Open
  if rs.state=adstateopen then rs.close
  rs.open "select typecode,typename from ykdrugtype",con,adopenkeyset,adlockreadonly
  Set DataGrid2.DataSource = rs
  rs.cloes  
  con.close
End Sub

Answer 2

Private Sub Form_Load()
  con.ConnectionString = "Provider=SQLOLEDB.1;Password=hjk;Persist Security Info=True;User ID=sa;Initial Catalog=MedRecsData;Data Source=."
  con.Open
  RS.CursorLocation = adUseClient
  RS.Open SQL, con, adOpenKeyset, adLockOptimistic
  If Not rs.EOF Then
    Set DataGrid2.DataSource = rs
  End If  
End Sub

Answer 3

将Dim rs As ADODB.Recordset
改为Dim rs As New ADODB.Recordset
即可，谢谢上面的朋友