The 1001 questions about vbRichClient5 (2020-07-21)

[xiaoyao]

Set DG.DataSource = Rs.DataSource err:
'-2147221504 (80040000)':

ADO needs to be installed to use DataBinding

Private Sub UpdateDataGrid(DG As DataGrid, SQL As String)
  Set DG.DataSource = Nothing
  Set Rs = Cnn.OpenRecordset(SQL)
  MsgBox Rs.RecordCount
  Set DG.DataSource = Rs.DataSource
  
End Sub