Dim MyEncryption as New DLLEncryption.MyEncryptionClass

Option Explicit On
Option Strict Off

Imports System.Windows.Forms

Imports CIMALock
Imports System.Security.Cryptography
Imports System.Text
Imports System
Imports System.IO



Public Class dlgMailSetup
    Private _mainTable As DataTable
    Private _data As clsData
    Private _mailSetup As DataTable
    Private _lock As clsLock

    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        Me._data = New clsData
        'Me._data.Connect("Harvest")
        Me._data.Connect("Admin")
    
        Me._mailSetup = New DataTable("MailSetup")
        Me._data.LoadProc(Me._mailSetup)

        Me.txtMailService.DataBindings.Add("Text", Me._mailSetup, "MailService")
        Me.txtMailPOP.DataBindings.Add("Text", Me._mailSetup, "MailPOP")
        Me.txtMailSMTP.DataBindings.Add("Text", Me._mailSetup, "MailSMTP")
        Me.txtMailUser.DataBindings.Add("Text", Me._mailSetup, "MailUser")
        Me.txtMailKey.DataBindings.Add("Text", Me._mailSetup, "MailKey")
        Me.txtPortIn.DataBindings.Add("Text", Me._mailSetup, "PortIn")
        Me.txtPortOut.DataBindings.Add("Text", Me._mailSetup, "PortOut")


    End Sub
    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        If Me.editCheck() = True Then


            Dim MyEncryption As New CIMABank.MyEncryption
            Me._data.UpdateFromTable(Me._mailSetup)
            Me.DialogResult = System.Windows.Forms.DialogResult.OK
            Me.Close()

        End If
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Function editCheck() As Boolean
        'check for completeness
        'called after OK button is hit
        Dim blnOK As Boolean = True
        Dim strMessage As String = ""



        If String.IsNullOrEmpty(Me.txtMailKey.Text.Trim) Then
            blnOK = False
            strMessage &= "Password Cannot be blank" & vbCrLf
        Else
            If String.IsNullOrEmpty(Me.txtMailKeyVerify.Text.Trim) Then
                blnOK = False
                strMessage &= "Password Cannot be blank" & vbCrLf
            End If
        End If

        If txtMailKey.Text <> txtMailKeyVerify.Text Then
            blnOK = False
            strMessage &= "Password does not match" & vbCrLf
        End If
        'Show the accumulated errors if any
        If blnOK = False Then
            strMessage = "The following error(s) must be resolved before proceeding" & vbCrLf & vbCrLf & strMessage
        End If

        'is True only if every check is passed
        Return blnOK

    End Function
    

End Class

Dim lck As New CIMALock.clsLock
            Dim rowC As DataRow = CType(Me.txtMailKey.DataBindings(0).BindingManagerBase.Current, DataRowView).Row
            rowC.Item("MailKey") = lck.Encrypt(Me.txtMailKey.Text)

? rowC.Item("MailKey")
Referenced object has a value of 'Nothing'.

? Me.txtMailKey.DataBindings(0)
{System.Windows.Forms.Binding}
    BindableComponent: {System.Windows.Forms.MaskedTextBox}
    BindingManagerBase: {System.Windows.Forms.CurrencyManager}
    BindingMemberInfo: {System.Windows.Forms.BindingMemberInfo}
    Control: {System.Windows.Forms.MaskedTextBox}
    ControlUpdateMode: OnPropertyChanged {0}
    DataSource: {System.Data.DataTable}
    DataSourceNullValue: {System.DBNull}
    DataSourceUpdateMode: OnValidation {0}
    FormatInfo: Nothing
    FormatString: ""
    FormattingEnabled: False
    IsBinding: False
    NullValue: Nothing
    PropertyName: "text"