ho un programma allacciato ad access con il controllo data1

come faccio a caricare una combo con tutti i nominativi di un campo??

ho provato cosi ma non lo accetta ce' qualche errore?




Private Sub Carica_Combo()


Combo3.Clear
If Data2.Recordset.EOF And Data2.Recordset.BOF Then
Data2.Recordset.MoveFirst
Do While Not Data2.Recordset.EOF
Combo3.AddItem Val(Text1.Text)
Data2.Recordset.MoveNext
Loop
End If
End Sub