Fejl i Combobox med RowSourceType = "Value List"

Me!DinComboBox.SetFocus
Me!DinComboBox.RowSourceType = "Value List"
Me!DinComboBox.BoundColumn = 1
Me!DinComboBox.ColumnCount = 2
Me!DinComboBox.ColumnWidths = "4cm;0cm"
Me!DinComboBox.ListWidth = 40
       
Teksten = "Firmanavnet"
FirmaId = 2

Me!DinComboBox.AddItem """" & Teksten & """;" & FirmaId & ""

Me!DinComboBox.Value

Dim Teksten As String
Dim FirmaId As Long

Me!DinCombobox.BoundColumn = 2
Me!DinCombobox.ColumnCount = 2
Me!DinCombobox.ColumnWidths = "4cm;0cm"

Teksten = "Firmanavnet"
FirmaId = 2

Me!DinCombobox.AddItem """" & Teksten & """;" & FirmaId & ""
Me!DinCombobox.Value = FirmaId

Debug.Print "FirmaId:", Me!DinCombobox.Value
Debug.Print "Teksten:", Me!DinCombobox.Column(0)