SoloCodigo

Ahora ya no me saca error pero no me muestra nada en el combo

Gracias

Además la consulta no va a funcionar. Le falta un espacio delante del "Where".

Saludos  

eso también lo habia detectado y solucionado, gracias.La select me funciona lo q no funciona es lo q les comente anteriormente de pasar los registros del recordset a un combo, es la primera vez que lo hago y voy un poco pez.

Gracias y Feliz Navidad

Hola, buenos dias...

Estoy intentando llenar un combo mediante un recordset que recupera una consulta de una tabla, pero me da error, les pongo el codigo a ver si ustedes lo encuentran.

Private Sub Cuadro_combinado41_GotFocus()

Dim Csql As String
abre As ADODB.Recordset

Csql = "Select Ejercicio, iva1, iva2, iva3, iva4, iva5 From IVAINICIO" _
& "Where Ejercicio= '" & Year(Now()) & "'"

Set abre = New ADODB.Recordset

abre.Open Csql, CurrentProjectConnection, adOpenKeyset, adLockReadOnly, adCmdText

If Not (abre.EOF And abre.BOF) Then

MsgBox " Ha encontrado algo "

EJERCICIO = abre!EJERCICIO
iva1 = abre!iva1
iva2 = abre!iva2
iva3 = abre!iva3
iva4 = abre!iva4
iva5 = abre!iva5

End If

    Set abre = Nothing

End Sub


El error que me da es: La instrucción no es válida fuera del bloque Type

Muchas grácias