Gracias ppor el aporte de los que participaron en este tema.!! Ya lo resolvi..
Aca les dejo el codigo que me funciona, tiene mis datos... los que lo necesiten obviamente lo acomodan a sus necesidades.. espero les sirva
Código vb:
Ver originalDim dt As New DataTable
'Establecemos la cadena de conexion
Dim con As New MySqlConnection
Dim consulta As String = "Select alto, ancho, profundidad from producto where ID_producto = " + cboproducto4.SelectedValue.ToString
Dim comando As New MySqlCommand(consulta, con)
Dim drd As MySqlDataReader
con.Open()
drd = comando.ExecuteReader()
If drd.Read() Then
Me.TextBox16.Text() = drd.Item("alto").ToString()
Me.TextBox17.Text() = drd.Item("ancho").ToString()
Me.TextBox18.Text() = drd.Item("profundidad").ToString()
End If
drd.Close()
con.Close()
Saludos.! Nuevamente gracias por la ayuda.!