Hola:
Esta función mejora un poco si cambias
rsTabla.Open "Select * From " & cTabla & " Order by " & cCampo, dbConex, 1
por
rsTabla.Open "Select " & cCampo & " From " & cTabla & " Order by " & cCampo, dbConex, 1
¿Para qué pedir todos los campos si sólo necesitamos el Id?
Saludos.
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>