Access - Rellenar cuadro de texto a partir de consulta

Hola

Estoy intentando rellenar un cuadro de texto con el valor único que devuelve una consulta e hice esto:


Pero resulta que lo que consigo es que en el cuadro de texto aparezca la consulta de SQL tal cual

¿Cómo puedo hacer para que me muestre el valor?

Rem abre un recorset

Set rs = CreateObject("ADODB.RecordSet")
Set CON = Application.CurrentProject.Connection
c10 = ""
c10 = " "SELECT Reg1 FROM Tabla1 WHERE Reg2 = '" & Me.Cuadro_combinado0.Value & "'"
consulta = c10 & c20 & c30 & c40 & C50 & c60 & c70 & c80
rs.Open consulta, CON, adOpenDynamic, adLockOptimistic
rs.MoveLast
rs.MoveFirst
Me.Texto0 = RS.Fields("Reg1").Value
Me.Texto0.Requery

RS.Close

Rem abre un recorset

Set rs = CreateObject("ADODB.RecordSet")
Set CON = Application.CurrentProject.Connection
c10 = ""
c10 = " "SELECT Reg1 FROM Tabla1 WHERE Reg2 = '" & Me.Cuadro_combinado0.Value & "'"


consulta = c10
rs.Open consulta, CON, adOpenDynamic, adLockOptimistic
rs.MoveLast
rs.MoveFirst

Me.Texto0 = RS.Fields("Reg1").Value
Me.Texto0.Requery

RS.Close

Hola Lydia

Seria mucho mas sencillo que usaras le funcion agregada de dominio DLookup y la expresion te quedaria algo asi :

Me.Texto0.value = DLookup("Reg1", "Tabla1", "Reg2 = '" & Me.Cuadro_combinado0.Value & "'")

Desde Venezuela
Jefferson

Muchas gracias a todos por las respuestas