O que falta no código abaixo para meu DataGrid mostrar os dados ?

 

Public Sub AbrirRSEncherGrid()
    Dim strSQL  As String
    Dim lngI    As Long
    
    strSQL = "SELECT * FROM Alunos ORDER BY Codigo"

    Set m_objRS = New ADODB.Recordset
    m_objRS.Open strSQL, m_objConexao, adOpenKeyset, adLockOptimistic

    With frmDataGrid.DataGrid1
        .Caption = "Exemplo de uso do DataGrid"
       
        For lngI = 0 To m_objRS.Fields.Count - 1
            .Columns(lngI).Caption = m_objRS.Fields(lngI).Name
            .DataMember = m_objRS.Fields(lngI).Name
        Next

        Set .DataSource = m_objRS
       
        .Refresh
    End With
   
    m_objRS.Close
    Set m_objRS = Nothing
End Sub

Oi, eu já resolvi

 

Descobri por que não funcionava:

 

- Faltava isto antes de abrir a conexão:

'Definir o tipo de cursor
objRS.CursorLocation = adUseClient

- Também faltava colocar os nomes campos e legendas dos cabeçalhos das colunas nas propriedades (properties custom) do DataGrid, aba Columns campo DataField e o campo Caption (nome das colunas).