Imports System.Data
Imports System.Data.OleDb

Public Class frmMAIN

    Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\dbCOMUNI.mdb")
    Dim cmd As OleDbCommand
    Dim daCOMUNI As OleDbDataAdapter
    Dim dtCOMUNI As DataTable

    Dim dtCOMUNI As DataTable

    Private Sub frmMAIN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cmd = New OleDbCommand("SELECT key, Comune FROM Comuni ORDER BY Comune", conn) 'Questo (ORDER BY Comune) e per ordinare i comuni in ordine alfabetico

        daCOMUNI = New OleDbDataAdapter()
        daCOMUNI.SelectCommand = cmd
        dtCOMUNI = New DataTable()
        daCOMUNI.Fill(dtCOMUNI)

        Me.cmbCOMUNI.DataSource = Me.dtCOMUNI
        Me.cmbCOMUNI.DisplayMember = "Comune"
        Me.cmbCOMUNI.ValueMember = "key"

    End Sub

End Class