Guardar valor del campo resultado de una consulta sql en una variable string

La solucion es más sencilla si usas la función DLookup que una SQL. Te comento de las dos formas.

En el formulario, en Vista diseño, te colocas sobre el campo CodCli, sacas sus propiedades, vas a la pestaña Eventos, te colocas en la fila Despues de Actualizar, y le das al boton de los 3 puntos que aparece en el lado derecho. Elijes Generador de código.

En el editor de vba que te aperece, escribes este código:

Private Sub CodCli_AfterUpdate()

Dim vloc as String, vloc2 as String

vloc = Left(Me.CodCli, 2)

vloc2=Dlookup("NOMBRE","POBLACIONES","[CODPOB]=" & vloc)

Me.Destino=vloc2

End Sub

Con SQL sería asi:

Private Sub CodCli_AfterUpdate()
Dim vloc as String, vloc2 as String

Dim rst as Recordset

Dim miSQL as String

vloc = Left(Me.CodCli, 2)

miSQl="SELECT NOMBRE FROM POBLACIONES WHERE CODPOB = " & vloc

Set rst=CurrentDB.OpenRecordset(miSQL,dbOpenDynaset)

vloc2=rst("NOMBRE")

rst.close

Me.Destino=vloc2

End Sub

En ambos me sale el error 'error de sintaxis' en las siguientes lineas

-EN DLOOKUP

vloc2=Dlookup("NOMBRE","POBLACIONES","[CODPOB]=" & vloc)

-EN SQL

miSQl="SELECT NOMBRE FROM POBLACIONES WHERE CODPOB = " & vloc

no consigo depurarlo

Te escribí mal el código, pues estaba con que vloc era el valor numérico y no una cadena de texto. Cambialo por esto:

vloc2=Dlookup("NOMBRE","POBLACIONES","[CODPOB]='" & vloc & "'")

y

miSQl="SELECT NOMBRE FROM POBLACIONES WHERE CODPOB = '" & vloc & "'"

Es decir, añade una comilla simple antes de las comillas del igual, y después de vloc El & y comillas dobles-comilla simple- comillas dobles ( " ' " ) te lo pongo así separado para mayor claridad.