Visual Basic.NET - Llenar un ComboBox a partir de Access en VB2010

Buenas tardes:
Llevo dos días intentado llenar una ComboBox a partir de una BD Access en VB 2010 y estoy hecho un lio. No sé si lo que escribo en el código (que no me funciona) entra en conflicto con lo que me exige cuando copio la ComboBox en el form. Tengo entendido que priva el código sobre las propiedades de tiempo de diseño, pero la verdad es que lo que tengo escrito de código (lo que sigue) no funciona. Recibo el mensaje: "No se han espècificado valores para algunos de los parámetros requeridos".
Además he puesto al principio del procedimiento
Option Explicit On
Impor ts System.Data
Importes System.Data.OleDb

¿Qué tengo hecho mal? ¿Me podéis ayudar? Mil gracias.

Private Sub LlenarComboBox()
Try
Dim ds1 As New DataSet
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
dbSource = "Data Source = C:\Users\Alberto Moreno Gil\Mis documentos\bd4.mdb"

con.ConnectionString = dbProvider & dbSource
con.Open()
sql1 = "SELECT * FROM Denominacion WHERE Not clase ='Acciones' ORDER BY denominacion"

'con.Open()

Dim da1 As New OleDbDataAdapter(sql1, con) 'MyDataAdapter
da1.Fill(ds1, "MiTabla")
' Idea 1
ComboBoxDenominaciones.DataSource = ds1.Tables("MiTabla").DefaultView
ComboBoxDenominaciones.ValueMember = "denominacion"
ComboBoxDenominaciones.DisplayMember = "denominacion"
con.Close()
con = Nothing
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Sub

He ido revisando paso a paso y veo que el error me lo da en
da1.Fill(ds1, "MiTabla")
he probado
da1.Fill(ds1) o da1.Fill(ds1, 0)
y me sigue dando el mismo error. No sé lo que pueda ser. Gracias.

Solucionado. La participación en este foro me ha sido de gran utilidad. ¡Jua!

Hola, estaría bueno que pongas como lo solucionaste así el hilo queda completo y con la solución, de esta forma, para otro que tenga el mismo problema lo pueda solucionar también
Saludos

Avec plaisir, que dicen los franceses.
Como me daba el error en la carga del DataSet desde el DataAdapter me empeñaba en encontrar la solución en esa orden misma: DataAdapter.Fill(DataSet)
El error estaba cinco o seis líneas antes, cuando creé el
sql1 = "SELECT * FROM Denominacion WHERE Not clase ='Acciones' ORDER BY denominacion"
porque en la tabla Denominacion, que tenía inicialmente dos campos: "denominacion" y "clase" había suprimido, porque lo consideraba innecesario, el campo "clase". Sin embargo, aquí está el error, llamaba yo a este campo inexistente en mi sql1. Haciendo probaturas simplifiqué el sql1 a
sql1 = "SELECT * FROM Denominacion" y funcionaba y
sql1 = "SELECT * FROM Denominacion ORDER BY denominacion" y también funcionaba. Hay una colilla, luego alguien ha fumado. Añadí en la tabla, porque lo considero ahora interesante, de nuevo el campo "clase" y ¡voila! funciona perfectamente. El problema fue que no me daba el error en
sql1 ="SELECT..." sino unas cuantas líneas más abajo, como he dicho.
Hasta luego.