Consulta de una BD MySql con un COMBOBOX

[DavidNovato]

Public Function Datos() As DataTable
Dim dt As New DataTable
Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
Dim consulta As String = "SELECT * FROM proveedor" 'consulta a la tabla
Dim comando As New MySqlCommand(consulta, conexion)
Dim adap As New MySqlDataAdapter(comando)

adap.Fill(dt)
Return dt
cboproveedor.DataSource = Datos()
cboproveedor.DisplayMember = "nombre"
cboproveedor.ValueMember = "ID"
End Function

Ese es el codiigo que tengo en mi aplicacion.. Que puede estar mal?.. porq ni siquiera me da algun error de sintaxis ni nada parecido