Разные гриды и разные рекордсеты - VB

Формулировка задачи:

Полученный рекордсет из закрытой книги ексел могу выгрузить только в MSHFlexGrid1. Отравки кода

        sCon = "select * from [Результат$]"
        RS.Open sCon, cn, 3, 3
        Set MSHFlexGrid1.Recordset = RS ' заполняет
        Set DataGrid1.DataSource = RS ' не заполняет грид пустой
'        Set MSFlexGrid1.DataSource = RS ' ошибка

Но если заполняю RS2 вручную, то DataGrid1 заполняется:

    Dim RS2 As New ADODB.Recordset
    Dim i, c, r
    For c = 0 To 10
        RS2.Fields.Append "t" & c, adVarChar, 150 ' новые колонки
    Next
 
    RS2.Open
    With RS2
    For r = 1 To 20
            .AddNew
            For c = 0 To 10
                  .Fields("t" & c) = 10 * r + c
            Next c
            .Update
    Next r
    End With
        Set MSHFlexGrid1.Recordset = RS2 ' заполняет
        Set DataGrid1.DataSource = RS2 ' заполняет
'        Set MSFlexGrid1.DataSource = RS2 ' ошибка

В чём трабла? И почему назначение MSFlexGrid1.DataSource в обоих случаях вызывает ошибку?

Решение задачи: «Разные гриды и разные рекордсеты»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim DB As adodb.Connection
Dim Emp As adodb.Recordset
Private Sub Form_Load()
    Dim N As Long
    Set DB = New adodb.Connection
    DB.CursorLocation = adUseClient
    DB.ConnectionString = "Provider=Microsoft.Jet.oledb.4.0;" & _
    "Data Source=" & App.Path & "\DB.MDB"
    DB.Open
    Set Emp = DB.Execute("SELECT * FROM tblEmployees")
    
    Set DataGrid1.DataSource = Emp
End Sub
                        