Public conn As ADODB.Connection
Public cmd As ADODB.Command
Public rs As ADODB.Recordset
enlazo conn.ConnectionString = "driver=SQL Server;server=DESARROLLO;uid=;pwd=;database=EXTER"
y todo bien
en un boton agrego este evento
Set cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = "contador"
Set rs = cmd.Execute
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
y me ejecuta a la perfeccion el procedimiento pero al hacer los mismo pero quererlo mostrar en una text box
Set txtalfanumerico.DataSource = rs
txtalfanumerico.Refresh
no me aparece nada

alguien sabe que puedo hacer