Como enviar datos de una tabla a un combobox???

[lucasiramos]

Hola. A ver si te sirve...

Código:

Private Sub CargarCbo()
cboArea.Clear
cboAreaFiltro.Clear
 
With TAREAS
	 If .EOF = False Or .BOF = False Then
		 .MoveFirst
		 Do While .EOF <> True
			 cboArea.AddItem Trim(.Fields!DescArea.Value)
			 cboArea.ItemData(cboArea.NewIndex) = CInt(.Fields!CodArea.Value)
 
			 .MoveNext
		 Loop
 
	 End If
End With
End Sub

TAREAS es el Recordset que estoy cargando en el combobox, DescArea es lo que quiero mostrar y CodArea es el código de área (como te habras dado cuenta...)

Si no funciona veremos como lo solucionamos... Saludos. Lucas