1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21:
Private SubForm_Load () Schemerige sSQL2 als Koord Schemerige oConnect2 als ADODB.Connection Vastgesteld oConnect2 = Nieuwe ADODB.Connection Schemerige oRST2 als ADODB.Recordset Vastgesteld oRST2 = Nieuwe ADODB.Recordset sSQL2 = „SELECTEER [Produits] VAN [Beschrijving produit] '“ oConnect2.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ & _ „Gegevens Source=“ & Form4.txt BaseDe.Text oRST2.Open sSQL2, oConnect2 Doe tot oRST2.EOF Des_prod.AddItem oRST2 („Produits“) oRST2.MoveNext Lijn Sub van het eind