Mostrar consulta en TeXTBOX

[panquitaro]

Estimados
mi consulta es la siguiente, tengo unos códigos con los cuales muestro una consulta en un combobox pero esta vez quiero mostrarlos en un TEXTBOX.

Los codigos son los siguientes:

Código:

 Dim sqlpm As String = "select DISTINCT FLANCO  from PH004M WHERE FECHA ='" & (DateTimePicker1.Text) & "' AND TURNO ='" & CmbTurno.Text & "'"
            Dim dapm As New SqlDataAdapter(sqlpm, con)
            Dim dtpm As New DataTable("PH004M")
            dapm.Fill(dtpm)
            With Me.CmbPMFlanco
                .DataSource = dtpm
                .DisplayMember = "FLANCO"
            End With

CmbPMFLANCO es el combobox
como seria para presentarlo en TEXTBOX.

Gracias de antemano.

[lordbeliar2010]

REALIZADO POR: JDPAIZ

seria aci aces una busquda con un textbox lo llamaresmos txtbuscar y un boton cmdbuscando
aroa si tu escribes en la caja de texto txtbuscar y aces clic en el boton la consulta que estan en la funcion o metodo como qieras llamarle ara todo si el dato exite te lo mostrara en las otras cajas de texto

recuerda agregar tu codigo de conexion

Private Sub cmdfind1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdfindruc.Click

If findruc.Text <> "" Then
Call Llenar_Textbox_Por_RUC()

cmdfindrsocial.Enabled = False
findrsocial.Enabled = False
Else
MsgBox("El Campo RUC Esta Vacio")
End If

End Sub
Public Sub Llenar_Textbox_Por_RUC()
Dim sqdataadapter As SqlDataAdapter
Dim datase As DataSet
Dim x As Integer
Dim ruc, rsocial, ciudad, dir, correo, telf As String
'VARIABLE PARA OCUPAR EN LAS CONSULTAS
Dim query As String = "select * from proveedor where ruc= '" & Me.findruc.Text & "'"

cnx.Open()
sqdataadapter = New SqlDataAdapter(query, cnx)
datase = New DataSet
sqdataadapter.Fill(datase, "proveedor")

For x = 0 To datase.Tables("proveedor").Rows.Count - 1
ruc = datase.Tables("proveedor").Rows(x).Item(1)
rsocial = datase.Tables("proveedor").Rows(x).Item(2)
ciudad = datase.Tables("proveedor").Rows(x).Item(3)
dir = datase.Tables("proveedor").Rows(x).Item(4)
correo = datase.Tables("proveedor").Rows(x).Item(5)
telf = datase.Tables("proveedor").Rows(x).Item(6)

Me.ruc.Text = (ruc)
Me.rsocial.Text = (rsocial)
Me.ciudad.Text = (ciudad)
Me.dir.Text = (dir)
Me.correo.Text = (correo)
Me.telf.Text = (telf)
Next
cnx.Close()
End Sub

[panquitaro]

Bien , eso me sirvio , lo aplicaré !! Gracias lordbeliar2010 .....