Access - jorge A

Asigno una consulta a un cuadro de texto y a un cuadro combinado

Private Sub Combi_tema_BeforeUpdate(Cancel As Integer)
Dim SQLcc As String
Dim SQLindi As String

SQLindi = "Select DISTINCT indi_tema FROM IndiceTema WHERE tema_cas=" & Me.Combi_tema.Value
Me.indi_tema.Value = SQLindi *

SQLcc = "Select DISTINCT [IndiceSubtema].[subtema_cas] FROM IndiceSubtema, IndiceTema, TABLAS WHERE [TABLAS].[cod_subtema]=[IndiceSubtema].[cod_subtema] and [Tablas].cod_tema=" & Me.indi_tema
Me.Combi_subtema.RowSource = SQLcc

etc...

End Sub

En la linea marcada con * me da un error, no asigna el valor a indi_tema, q falla? la consulta solo devuelve un valor.

otra pregunta más, como hago para que el combinado sea independiente, es decir, que no modifique la base de datos al seleccionar un valor pero que también cambie al cambiar de registro?, no se mucho de esto..