Visual Basic - PLEASE DE ADO A DAO

HOLA COLEGA, AQUI PRESENTO EL SIGUIENTE CODIGO QUE ESTA REALIZADO EN ADO YA QUE NECESITO SABER COMO PUEDO HACER PARA UTILIARLO PERO EN DAO YA QUE NECESITO ADAPTARLO A MI SISTEMA. EL OBJETIVO DE ESTE CODIGO ES QUE ME LEA UNA TABLA DE MI BASE DE DATOS LA CUAL ESTE ECHA EN ACCESS Y ME LLENO LOS COMBO BOX CON LA INFORMACIÓN QUE SE ENCUENTRA EN LA TABLA.. EL CODIGO FUNCIONA PERFECTAMENTE EN ADO PERO CUANDO LO PASO A DAO ME DA DIFERENTES ERRORES COMO POR EJEMPLO QUE NO ESTA DECLARADO EL ARREGLO DINAMICO “ReDim Preserve Biblioteca(i)” DE IGUAL FORMA ME MUESTRA ERRORES QUE NO COINCIDEN LOS DATOS... Agradezco Mucho de tu ayuda porque a lo mejor me esta faltando algo a la hora de pasarlo a dao.... Gracias

Dim WithEvents Con As ADODB.Connection
Dim WithEvents rst As ADODB.Recordset
Dim codest As Integer
Dim rs
Private Sub Combo1_Click()
Dim rs
If Combo1.ListIndex <> -1 Then
codest = Biblioteca(Combo1.ListIndex)
Else
codest = 0
End If
End Sub
Private Sub Combo1_GotFocus()
Dim rs
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT DISTINCT COD_ESTADO,DES_ESTADO FROM ESTMUNPARRCENT ", "DSN=dnsrep" 'No lo quiero con DNS en DAO
Do Until rs.EOF
i = i + 1
ReDim Preserve Biblioteca(i)
ReDim Preserve Biblioteca1(i)
Biblioteca(i - 1) = rs.Fields(0)
Biblioteca1(i - 1) = rs.Fields(1)
Combo1.AddItem rs.Fields(1).Value
Combo1.Refresh
rs.MoveNext
Loop
End Sub

Para conectar con DAO tenes que seguir los siguientes pasos:
1- Te vas al menu proyecto, referencias y agregar MICROSOFT DAO 3.6.
2- Despues tenes que crear la coneccion a la base de dato, declaras una variable tipo DataBase, y la conectas de la siguiente manera.
Dim db as Database
Sub Main()
set db = opendatabase("Camino de la base de datos")
End Sub
3- Despues declaras una variable de tipo recordset, por ejemplo
dim rec as recordset
le cargas la sentencia sql de la siguiente manera
set rec = db.openrecordset("Sentencia sql")
y ahi podes realizar las operaciones que quieras, cualquier cosa me escribes a mi correo si es que no es esto lo que necesitas.
Saludos Mauro.