Yo aqui tengo un codigo que me funciona para llenar un combobox, espero te ayude, cualquier duda estaremos pendientes..
Código:
Dim sql As String
Dim cn As OleDbConnection
Dim cm As OleDbCommand
Dim da As OleDbDataAdapter
Dim ds As New DataSet
cn = New OleDbConnection(aqui tu conexion a la base de datos)
cn.Open()
sql = "SELECT id,nombre from categoria"
cm = New OleDbCommand
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn2
da = New OleDbDataAdapter(cm)
ds = New DataSet
da.Fill(ds)
cmbCategoria.DataSource = ds.Tables(0)
cmbCategoria.DisplayMember = "nombre"
cmbCategoria.ValueMember = "id"
cmbCategoria.SelectedValue = 0
cn.close()