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 original- Dim 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.!
