Hola
valderramalex, lo que estas haciendo allí es pasar tu dato al textbox, luego pasas otra vez "eliminando" lo que estaba y copiando el nuevo, así hasta que solo te muestra la última linea, para concatenar tendrñias que hacer esto :
Código vb:
Ver originalejecutaradapter("SELECT * from T_Productos WHERE Id_Cotizacion='" & TextBox1.Text & "'")
adapter.Fill(dataset)
TextBox4.Text = dataset.Tables(0).Rows(0)(0).ToString & vbCrLf
'Colocar el textbox + el nuevo dato a cada uno
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(0)(1).ToString & vbCrLf
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(0)(2).ToString & vbCrLf
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(0)(3).ToString & vbCrLf
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(0)(4).ToString & vbCrLf
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(0)(5).ToString & vbCrLf
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(0)(6).ToString
Saludos!
.