MarcioPro

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

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