Visual Basic - problemas al conectar a una base de datos

hola a todos:

EStoy intentando conectarme a una base de datos y mostrar una columna en un combo, pero yo creo que no se me conecta a la base de datos.

El codigo que tengo puesto por el momento es:

Option Explicit

Dim AreaDeTrabajo As Workspace
Dim BD As Database
Dim Tabla As Recordset
Dim Consulta As QueryDef

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

'crear el area de trabajo'
Set AreaDeTrabajo = DBEngine.CreateWorkspace("trabajo", "admin", "", "dbuse")
Workspaces.Append AreaDeTrabajo
Set AreaDeTrabajo = DBEngine.Workspaces(0)
'abrir la base de datos'
Set BD = AreaDeTrabajo.OpenDatabase("C:\Documents and Settings\Alumno\Escritorio\PROYECTO2\fotos\fotos.mdb", False)
'abrir una tabla'
Set Tabla = BD.OpenRecordset("fotos")
Set Tabla = BD.OpenRecordset("select distinct tema from fotos")
'Set Consulta = BD.QueryDefs("busqueda")

With Tabla
' Si no hay datos...
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados"
Else
' Mostrar los datos hallados

.MoveFirst
Do While Not .EOF

rellenarCombo (.Fields("Tema"))
.MoveNext
Loop
End If
End With
Set Tabla = Consulta.OpenRecordset

End Sub

Muchisimas gracias

Hola Carolina:

¿Porqué en el evento WillMove del control Adodc? este evento se produce cada vez que se mueve el puntero.

¿Dá error?, ¿en qué linea? ¿No sale el mensaje "No se han encontrado los datos buscados" ?

¿Porqué asignas dos veces el valor al recordset?:
Set Tabla = BD.OpenRecordset("fotos")
Set Tabla = BD.OpenRecordset("select distinct tema from fotos")

¿Porqué mezclas ADO y DAO?

Si nos pudieras contestar a estas preguntas.....