Oregon scusami ma ero convinto di averlo fatto correttamente....ma mi accorgo ora che non era il CODE giustocodice:Imports System.Data.Oledb Public Class Form2 Dim conn As New OLEDBConnection("Provider=Microsoft.ACE.OLEDB.16.0 ;Data Source=C:\Database41.accdb") Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'Me.CenterToParent() conn.open() Dim strsql As New OleDb.OleDbCommand("Select CITTA from COMUNI") Dim myreader As OleDb.OleDbDataReader = strsql.ExecuteReader cbo_comuni.Items.Clear() While myreader.Read() cbo_comuni.Items.Add(myreader("CITTA")) End While conn.close() end sub
Grazie

Rispondi quotando