Set rsLlenar = New ADODB.Recordset
rsLlenar.Open CadAbrir, Cnx, 3, 3 Rem Recordset que trae los datos
If Not (rsLlenar.BOF And rsLlenar.EOF) Then
rsLlenar.MoveFirst
ReDim Unidad(rsLlenar.RecordCount - 1) As String Rem Vector opcional para que guarde le codigo del elemento
For I = 0 To rsLlenar.RecordCount - 1
lstAyuda.AddItem rsLlenar(1)
Unidad(I) = rsLlenar(0)
rsLlenar.MoveNext
Next
End If