Scusate ho risolto.Che figura barbina.
Basta far eseguire la ricerca all'oggetto recordset per poi
andare a leggere il valore desiderato.

Sql = "SELECT PV FROM Tbl WHERE campo ='" & miastringa & "'"

Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
'MsgBox "Connesso al db e alla tbl via" & conn.Provider

'Apre la tabella o la query
rs.Open Sql, conn, adOpenForwardOnly, adLockReadOnly
miastringa = rs("altrocampo")