Public Class MiaClasse
        'Variabili private della classe
        Private _cnString As String

        'Variabili private per esporre Proprietà
        Private _strCampo1 As String
        Private _strCampo2 As String
    
        Public Property Campo1() As String
            Get
                Return _strCampo1
            End Get
            Set(ByVal value As String)
                _strCampo1 = value
            End Set
        End Property

        Public Property Campo2() As String
            Get
                Return _strCampo2
            End Get
            Set(ByVal value As String)
                _strCampo2 = value
            End Set
        End Property

        Sub New(ByVal cnString As String)
            _cnString = cnString
        End Sub

        Public Function Insert() As Integer
            ''Provvede ad inserire i dati in SQL2005

            Dim strSQL As String
            Dim cn As New SqlClient.SqlConnection
            strSQL = "INSERT INTO MiaTabella (Campo1, Campo2) VALUES(@Campo1, @Campo2)"

            'Apertura della connessione
            Try 'Apertura connessione
                cn.ConnectionString = _cnString
                cn.Open()
            Catch ex As Exception
                'Finalizza connessione
                cn.Close()
                cn.Dispose()
                Return 0
            End Try

            'Crea Command e parametri
            Dim cmd As New SqlClient.SqlCommand(strSQL, cn)
            cmd.Parameters.Add(New SqlClient.SqlParameter("@Campo1", Data.SqlDbType.VarChar)).Value = _strCampo1
            cmd.Parameters.Add(New SqlClient.SqlParameter("@Campo2", Data.SqlDbType.VarChar)).Value = _strCampo2
            'Esegue SQL secca
            Try
                Dim dr As SqlClient.SqlDataReader  = cmd.ExecuteNonQuery()
                Return 1
            Catch ex As Exception
                Debug.Print(ex.Message)
                Return 0
            Finally
                cmd.Dispose()
                cn.Close()
                cn.Dispose()
            End Try
        End Function
    End Class