alguém pode passar um exemplo de como povoar uma combo com dados armazenados em um campo (NomeProfessor) de registro mdb? Estou usando datacontrol para acesso aos dados. A tentativa abaixo não deu certo:

Private Sub Form_Load()
    Enche_Combo , "cmbProfessor", "NomeProfessor"
End Sub

Private Sub Enche_Combo(Combo As Control, Data As String, NomedoProfessor As String)
    Dim Arqtemp As Recordset
    cmbProfessor.Clear
    Set Arqtemp = Data1.Recordset.OpenRecordset(Data)
    Do Until Arqtemp.EOF
        cmbProfessor.AddItem Arqtemp(NomedoProfessor)
        Arqtemp.MoveNext
    Loop
    Arqtemp.Close
    cmbProfessor.ListIndex = 0
End Sub

Private Sub Form_Load()
    Enche_Combo , "cmbProfessor", "NomeProfessor"
End Sub

Private Sub Enche_Combo(Combo As Control, Data As String, NomedoProfessor As integer)
    Dim Arqtemp As Recordset
    cmbProfessor.Clear
    Set Arqtemp = Data1.Recordset.OpenRecordset(Data)
    Do Until Arqtemp.EOF
        cmbProfessor.AddItem Arqtemp.Fields(NomedoProfessor ).Value  'NomedoProfessor  é o índice do campo na tabela

        Arqtemp.MoveNext
    Loop
    Arqtemp.Close
    cmbProfessor.ListIndex = 0
End Sub

 

Parda coloque o erro que esta dando ou veja esta dica aqui do site

http://www.vbweb.com.br/dicas_visual.asp?Codigo=57&Classificacao=

 

Ela preenche com um recordset para mim é melhor que usar o DATA.