Visual Basic - PLEASE CODIGO 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

Primeramente debes de Activar la referencia en Menu Proyecto-->Referencias con el nombre "Microsoft DAO 3.6 Object Library", y la conexion y las consultas te paso un ejemplo a tu correo!!!