(1): 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21:
Private Okręt podwodny Form_Load () Ciemnawy sSQL2 Sznurek Ciemnawy oConnect2 Jako ADODB.Connection Set oConnect2 = Nowy ADODB.Connection Ciemnawy oRST2 Jako ADODB.Recordset Set oRST2 = Nowy ADODB.Recordset sSQL2 = "WYBIÓRKA [Produits] OD [Opis produit] '" oConnect2.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _ "Dane Source=" & Form4.txt BaseDe.Text oRST2.Open sSQL2, oConnect2 Do oRST2.EOF Des_prod.AddItem oRST2 ("Produits") oRST2.MoveNext Pętla Końcówka Okręt podwodny