Public Sub GestioneContatti_Load(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load

        Dim strsql As String
        Dim strCN As String
        Dim contatto As String
        strsql = "Select * from contatti"
        strCN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
        CN.Open(strCN)
        RS = CN.Execute(strsql)
        While Not RS.EOF
            contatto = " " + RS.Fields("Nome").Value + " " + RS.Fields("Cognome").Value
            cmbContatti.Items.Add(contatto)
            RS.MoveNext()
        End While
        CN.Close()

End Sub