llenar combo con datos de SQL

[inemart]

pues nada se que algo estoy poniendo mal les mando la pequeña rutina para que me digan mi error
Private Sub CmbSucursalFac_load() ''el procedimiento no se si es load o change
Dim RS As New ADODB.Recordset
RS.Open " select * from BackOfficeCatalogos.dbo.CatSucursales order by Descripcion", Ocnn, adOpenDynamic, adLockOptimistic
Do Until .EOF
CmbSucursalFac.AddItem RS("Descripcion")
RS.MoveNext
Loop
End Sub

por favor agradeco respuestas !!!!!