🚀 go-pugleaf

Geachte

ik ben mezelf aan het leren omgaan met vb6 en databanken maar nu ik deze
twee wil combineren database en combobox loopt het verkeerd

ik krijg steeds de volgende fout:

item not found in this collection

fout nr 3265

Ik heb de velden al eens omgewisseld zodat hij niet de comp geeft maar de
gemeente in de combobox maar kan krijg ik een null fout

ik doe het volgende:

Private Sub Comborun()
Dim test As String

ComComp.Clear
' Leegmaken van de combobox
' Sorteren van de gegevens volgens compnr
Data1.RecordSource = "SELECT * FROM Installaties ORDER BY Gemeente"
Data1.Refresh

' Als er geen gegevens zijn dan stoppe

If Data1.Recordset.RecordCount = 0 Then
    Exit Sub
End If

' Toevoegen van de gegevens aan de combobox
Do While Not Data1.Recordset.EOF
    ComComp.AddItem Data1.Recordset("Comp")

    ' Deze movenext is belangerijk omdat ander de lus oneindig doorgaat

    Data1.Recordset.MoveNext
Loop

ComComp.Text = ComComp.List(0)

End Sub


Dank u bij voorbaat
jimmy