Ayuda Con Recordset Porfavor!!!

[Mephisto]

Yo te sugeriria que abrieras la conexion de la base de datos una vez y que en el ciclo solo recorrieras lo registros. En caso de que la consulta varie te sugiero que cierres y abras constantemente la conexion a la BD. Anexo un codigo para cargar una combo desde una base de datos. Espero te sirva

'COMBO MODULOS
Set rsMyRecordset = New Recordset
With rsMyRecordset
.Source = "SELECT Nombre_Mod FROM Modulos"
.ActiveConnection = PantallaGestion.cnBDGestion
End With
rsMyRecordset.Open Options:=adCmdText

'Vincula el campo con el Record Generado
Set ModulosCb.DataSource = rsMyRecordset
'Carga la combo con el resulatado de la consulta
Do Until rsMyRecordset.EOF
ModulosCb.AddItem rsMyRecordset("Nombre_Mod")
rsMyRecordset.MoveNext
Loop
rsMyRecordset.Close