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

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

    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 ' ошибка

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

Private Sub Комманда1_Click()
        Dim sCon As String, FieldName As String
'        Dim rs As Object, cn  As Object
'        Set rs = CreateObject("ADODB.Recordset")
'        Set cn = CreateObject("ADODB.Connection")
    Dim i, c, r
    Dim RS As New ADODB.Recordset
    Dim cn As New ADODB.Connection
        With cn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Data Source=C:\ПРТ1.xls;" & "Extended Properties=Excel 8.0;"
            .Open
        End With
        sCon = "select * from [Результат$]"
        RS.Open sCon, cn, 3, 3
        Set MSHFlexGrid1.Recordset = RS ' заполняет
        Set DataGrid1.DataSource = RS ' не заполняет
'        Set MSFlexGrid1.DataSource = RS ' ошибка
' хвост кода с закрытием рекардсета, подключения, очистка переменных

     cn.CursorLocation = adUseClient