Pubblic Class MiaClasse
        'Variabili private della classe
        Private _cnString As String 'Connection String (SQL2005)

        'Variabili private per esporre Proprietà
        Private _strCampo1 As String

        Public Property Campo1() As String
            Get
                Return _strCampo1
            End Get
            Set(ByVal value As String)
                _strCampo1 = 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) VALUES (@Campo1)"
            'Apertura della connessione
            cn.ConnectionString = _cnString
            cn.Open()

            'Crea Command e parametri
            Dim cm As New SqlClient.SqlCommand(strSQL, cn)
            cm.Parameters.Add(New SqlClient.SqlParameter("@Campo1", Data.SqlDbType.VarChar)).Value = _strCampo1

            'Esegue SQL
            Dim dr As SqlClient.SqlDataReader = cm.ExecuteNonQuery() 'So che così non va bene ma ho adattato il codice per renderlo più leggibile
            cm.Dispose()
            cn.Close()
            cn.Dispose()

            Return 0
        End Function