Visual Basic - error al realizar una segunda consulta

hola: me esta dando el error de POCOS PARAMETROS, SE ESPERABA1 en la siguiente linea

Set rs1 = DB.OpenRecordset("SELECT distinct Subtema from fotos where Tema like elementoSeleccionado", dbOpenDynaset)

alguien sabe porque? muchas gracias

El resto de cogigo es el siguiente:
Public sPath As String
Dim DB As Database
Dim AreaDeTrabajo As Workspace
Dim Err As Integer
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset

Private Sub cmbTema_Click()
Dim elementoSeleccionado As String

elementoSeleccionado = cmbTema.Text
'abro de nuevo la tabla de la base de datos, para encontrar los subtemas correspondientes a un tema
Set rs1 = DB.OpenRecordset("SELECT distinct Subtema from fotos where Tema like elementoSeleccionado", dbOpenDynaset)
' Comprobar que hay datos en el recordset
With rs1
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados"
Else
' Mostrar los datos hallados
listSubTema.Clear
.MoveFirst
Do While Not .EOF
listSubTema.AddItem rs1("Subtema")
.MoveNext
Loop
End If
End With
rs1.Close
End Sub

Private Sub Form_Load()

sPath = "D:\Documents and Settings\josune\Escritorio\proyecto fin de carrera\fotos\fotos.mdb"

'creo el area de trabajo
Set AreaDeTrabajo = DBEngine.Workspaces(0)

'abrir la base de datos
Set DB = AreaDeTrabajo.OpenDatabase(sPath, False)

'abrir una tabla
Set rs = DB.OpenRecordset("SElect distinct Tema from fotos", dbOpenDynaset)

Err = 0
rs.MoveFirst
If Err Then
Err = 0
'no hay datos, avisar
MsgBox "No hay datos que coincidan con la búsqueda especificada," & vbCrLf & "(o no está bien realizada)", 64, "Listados"
Exit Sub
End If

'Añadir el resultado a un combo
cmbTema.Clear
rs.MoveFirst
Do Until rs.EOF
cmbTema.AddItem rs("Tema")
rs.MoveNext
Loop
rs.Close

End Sub

es por el distinct

vale, he quitado el distinct pero ahora me dice que no encuentra datos(es como si en la base de datos no hubiese ningun subtema, pero si que los hay, si quito la parte del where me los visualiza, pero yo quiero conseguir los subtemas de un determinado tema)

Set rs1 = DB.OpenRecordset("SELECT Subtema from fotos WHERE Tema like '%elementoSeleccionado%'", dbOpenDynaset)

muchas graciass

vale muchisimas gracias a todos, curioseando dudas y problemas de otra gente en este mismo foro encontre la solucion, gracias a todos!!!

Pongo la solucion por si alguien tiene mi mismo problema:

Set rs1 = DB.OpenRecordset("SELECT distinct Subtema from fotos where Tema ='" & cmbTema.Text & "'", dbOpenDynaset)