Estou iniciando em programação ADO. uso vb6 e access. Consegui carregar uma Combobox com nomes de pessoas usando a conexao ADO. Porém não consigo carregar a grid, pois formatei as colunas cód e nomes corretamente e quando rodo o programa a grid aparece sem caregar, o que está errado neste código , agradeço desde já obrigado.

Private sub form load

  Call AbrirBanco 'aqui chamei a conexao ADO no módulo

      Set rsTabela = New ADODB.Recordset

      sqlString = "SELECT * FROM TabClientes"

     rsTabela.Open sqlString, strConexao, adOpenKeyset, adLockOptimistic

Call carregagrid

End sub

Rotina que preenche a grid

Public Sub preenchergrid()

    Dim rsTabela As ADODB.Recordset

    Dim sqlString As String

    Dim contador As Integer

     sqlString = "SELECT * FROM TabClientes ORDER BY Nome"

     set rsTabela = New ADODB.Recordset

     rsTabela.CursorLocation = adUseClient

     rsTabela.Open sqlString, strConexao, adOpenKeyset, adLockOptimistic

    set DataGrid1.DataSource = rsTabela

    DataGrid1.Refresh