...
Me.Adodc1.Recordset.AddNew
    Me.Adodc1.Recordset.Fields("Account").Value = Me.txtACNum.Text
    Me.Adodc1.Recordset.Fields("Title").Value = Me.cboTitle.Text
    Me.Adodc1.Recordset.Fields("First_Name").Value = Me.txtFName.Text
    Me.Adodc1.Recordset.Fields("Last_Name").Value

        Dim currDate, advDate As Date
        Dim currDay, lastDay As Integer

        currDate = Me.DateTimePicker1.Value.Date
        advDate = currDate.AddDays(15)
        If Not advDate.Month = currDate.Month Then ' Goes over to other month
            'message that date crosses the current month
            'or set to last date of mth
            currDay = currDate.Day

Dim strName, str, strUserName As String
        Dim arrName As String()

        strUserName = ""
        strName = TextBox1.Text
        arrName = strName.Split("bbb")


        For Each str In arrName
            If str.Length > 0 Then
                strUserName += str & ""
            End If
        Next

declare @columnName as nvarchar(30)
declare @value as nvarchar(30)
declare @condition as nvarchar(10)

set @columnName = 'last_name'
set @type = 'LIKE'
set @condition = '%g%'

    Public docReport As New rptStatus
    Public