Access VBA x SQL Server 2008

Boa tarde!

Gostaria de saber se alguém poderia me ajudar com a seguinte ação:

Tenho um formulário no Access com um txtbox chamado de txt_nome e um botão onde gostaria que ao clicar no botão o mesmo mostrasse o resultado de uma consulta que estou fazendo no SQL Server 2008 no txtbox.

Segue o código que estou usando:

Private Sub Comando0_Click()
Dim cn As New ADODB.Connection
Dim servidor As String
Dim bd As String
Dim rscons As New Recordset
Dim sql As String

servidor = "10.123.121.21"
bd = "Testebd"

cn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True"
cn.Properties("Data Source").Value = servidor
cn.Properties("Initial Catalog").Value = bd

cn.Open

MsgBox "Conexão Efetuada com Sucesso!!!"

nomecad = txt_nome

Set rscons = New ADODB.Recordset
Set rscons.ActiveConnection = cn
rscons.CursorLocation = adUseClient


sql = "select nome from tbl_teste where nome='João'"

rscons.Open sql

MsgBox "Consulta Efetuada com Sucesso!!!"

End Sub


Desde já agradeço.

Obrigado.

Bom dia,
rscons.Open sql
TxtSuaCaixa=rscons(0)
rscons.close
set rscons=nothing