la verdad es q no se si lo q preguntas se puede hacer, pero lo que se me ocurre q hagas es guardar el recorset.campo seleccionado en una variable y luego al textbox le asignas la var.
lo que volcas al text es el valor del registro del recordset en el que te posicionas mediante el evento click o doble click segun vos quieras.
ej
private sub datagrid1_dblclick
on error goto AE
text1.text=rs("NombreCampo").value
exit sub
AE:
msgbox Errr.description
end sub