Private Sub BtnInserisci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnInserisci.Click

        'CREO LA CONNESSIONE
        ' autenticazione sql (se hai fatto un utente di sql server)
        Dim objConnection As New SqlConnection("Data Source=NOMESERVER;Initial Catalog=NomeDB;User ID=user;Password=password;")
        ' autenticazione windows integrata (se vuoi usare l'account di windows)
        ' Dim objConnection As New SqlConnection("Data Source=NOMESERVER;Initial Catalog=NomeDB;Integrated security=SSPI;")
        objConnection.Open()
        '------------------------------------------------------------------------------

        ' CREO IL COMANDO
        Dim objCommand As SqlCommand = objConnection.CreateCommand()

        ' IMPOSTO I PARAMETRI DELLA STORED PROCEDURE
        objCommand.CommandText = "proc_InsertAnagrafica"
        objCommand.CommandType = CommandType.StoredProcedure
        objCommand.Parameters.Add("@Nome", SqlDbType.VarChar, 50).Value = TxtNome.Text
        objCommand.Parameters.Add("@Cognome", SqlDbType.VarChar, 50).Value = TxtCognome.Text
        '------------------------------------------------------------------------------

        ' PROVO AD ESEGUIRE, se il record esiste già, la RAISERROR della Stored procedure solleva l'eccezione
        Try
            objCommand.ExecuteNonQuery()
        Catch ex As Exception
            ' scrivo il messaggio dell'eccezione
            MsgBox(ex.Message)
         Finally
            ' chiudo la connessione se aperta
            If Not objConnection.State = ConnectionState.Closed Then
                objConnection.Close()
                objConnection.Dispose()
            End If 
        End Try
        '-------------------------------------------------------------------------------
    End Sub