DataGrid VB6 Access 2000

[MarcioPro]

Olá a todos este é meu primeiro post aqui.

Estou utilizando o vb6 com access 2000 e não estou conseguindo carregar dados em um datagrid via código, ele fica em branco, e não aparece nem o titulo dos campos nas colunas.

Desde já agradeço, quem poder me dar uma dica para o problema.

Option Explicit
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset

Private Sub cboFuncionario_Click()

    rs.Find "NomeFuncionario ='" & cboFuncionario.Text & "'", , adSearchForward, 1
    Set rs2 = New ADODB.Recordset
    rs2.Open "SELECT * FROM Atraso WHERE CodFuncionario = " & rs!CodFuncionario & " ORDER BY DataAtraso", cn, adOpenKeyset, adLockOptimistic
    Set datAtraso.DataSource = rs
    datAtraso.Refresh
    
    
End Sub

Private Sub Form_Load()

    Me.Left = (frmFicabos.ScaleWidth - Me.Width) / 2  'Centralizará o formulário porque este é um formulário mdi child
    Me.Top = (frmFicabos.ScaleHeight - Me.Height) / 2
    
    Set rs = New ADODB.Recordset
    rs.Open "SELECT CodFuncionario, NomeFuncionario FROM FuncionarioPessoal ORDER BY NomeFuncionario", cn, adOpenKeyset, adLockOptimistic
    
       
    PreencheCboFuncionario
    cboFuncionario.ListIndex = 0
       
    
End Sub

Private Sub PreencheCboFuncionario()
    Dim i As Integer
    
        cboFuncionario.Clear
    For i = 1 To rs.RecordCount
        rs.AbsolutePosition = i
        cboFuncionario.AddItem rs!NomeFuncionario
    Next
              
    
End Sub

Editado Novembro 23, 2007 por kuroi
Ponha os códigos dentro da tag CODE

[kuroi]

o problema deve estar na hora de abrir a conexao. antes de chamar o metodo cn.Open, adicione a linha:

cn.CursorLocation = adUseClient

senao ele não vai te dar permissao pra exibir os dados no grid.

[MarcioPro]

Kuroi, valeu muito obrigado, o problema era este mesmo, agora funcionou direitinho.

Obrigado. :lol: