Urgente: Pasar dato de BD a un textbox

[alejimram_22]

Hola expertos, tengo un problema, estoy haciendo un formulario en VB 2008 y necesito que al dar enter en un textbox vaya a buscar a una tabla el dato que capture en ese textbox y si existe que muestre la información en la pantalla.

Tengo algo así:

Dim s_dt As New DataTable

Try
'Verifica si ya existe la información capturada y la muestra, si no,
'lo deja pasar para que capture uno nuevo.
gsa_cnn.ConnectionString = gsa_conexion

gs_Consulta = "Select * from Datos where Codigo = '" & Trim(Me.txt_codigo.Text) & "'"

'Abro la conexión
gsa_cnn.Open()
gsa_da = New OleDb.OleDbDataAdapter(gs_Consulta, gsa_cnn)
gsa_da.Fill(s_dt)

'Verifico si ya existe la información en la base de datos y si existe la muestro
'en pantalla
If s_dt.Rows.Count > 0 Then
Me.txt_codigo.Text = ?????.
End If
gsa_cnn.Close()


Catch ex As Exception
MsgBox("Error: " & ex.Message, MsgBoxStyle.Information, Me.Name)
End Try

Agradeceré todo su ayuda. Saludos