SoloCodigo

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