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.