Datos De Un Campo De Una Tabla A Combobox

[calogc]

Private Function CargaDatos as DataTable
dim cn as new oledbConnection(cadena)
dim cmd as new oledbCommand("select * from tabla",cn)
dim da as new oledbDataAdapter(cmd)
dim dt as new DataTable
da.fill(dt)
return dt
end Function

Private sub Form1_Load(byval object as ....)
try
dim dt as new DataTable
dt=CargaDatos()
dim dr as DataRow
For Each dr In dt.Rows
ComboBox1.Items.Add(dr.Item("Nombre del Campo"))
Next
Catch ex as Exception
msgbox(ex.Message)
End Try