El error lo tienes en la consulta en el where primeramente te faltan los parentesis del metodo
Tostring(), pero bueno de todos modos no lo hagas así usa parámetros.
Código vb.net:
Ver originalDim consulta As String = "Select nombre, sede, direccion, nombre_contacto, telefono_contacto from proveedor where ID_proveedor =@id"
Dim cmd As New MySqlCommand(consulta, conec)
cmd.Parameters.AddWithValue("@id", cboproveedor4.SelectedValue.ToString())
'TU DEMÁS CODIGO
Ademas porque declaras un datatable al principio si utilizas datareader.