Urgent: Need script Guru to answer some questions I have on provided script

I am grabbing syslog messages from my firewall.
Kiwi syslog support created it for me.  It is not working quite yet.
this is version 2.  Version 1 worked but only if every fields existed.
If it did not , no values were inserted into the database.
IE all files have a "msg" field.  sometimes thats the only fields.
If his is the case no results get posted to DB.  I want it to post
whatever it has from teh listed fields.  
Thats question1.
question2, my software does not allow me to autocreate more than
16 custom fields names.  So I did not add mAlarm_name to my table.
Would that completly break this script?  Because my table is blank.
If i add a autoincrement field.. it does increment.. but tha tis the only
field with any values.
PS: I do not know VB at all.  I am not even 100% sure this is vb :o
Thanks
========================================
Function Main()

' This script will split the space delimited WatchGuard message text into
' separate custom fields which can then be logged to a database

' Note: This script requires Read access to "Other fields" variables.
' Ensure that the Fields read/write permissions are set as below...
'
'                Read | Write
' Common fields    X  |
' Other fields     X  |
' Custom fields    X  |  X

' Dim the variables
Dim SplitData
Dim MyDSN, MyTable, MyFields, DBTimeout, SQLcmd

' The script assumes that a table called "Syslogd" has already been
' created and contains all the required fields as listed below in MyFields
'
' It also assumes that the DNS that you are using is called syslog
'
' NOTE: If you installed Kiwi Syslog Daemon as a service you will need to
' insure that the DSN is a System DSN not a User DSN


MyDSN = "DSN=syslog;"
MyTable = "Syslogd"
DBTimeout = 30 ' Database timeout

MyFields = "mDate,mTime,mDisposition,mPolicy,mSrcIP,mSrcPort," & _
           "mDstIP,mDstPort,mProtocol,mSrcInf,mDstInf,mSrcUser,mMsg," & _
         "mProxyAct,mRuleName,mHeader,mAlarmName"

' Split the data into an array based on the " " (space) delimiter
'
' We need to do this to get the date and time from the message text field

SplitData = Split(Fields.VarCleanMessageText, " ")

If InStr(SplitData(3), "disp=") > 0 Then
   
    With Fields
   
        ' Construct the insert statement
        SQLcmd = "INSERT INTO " & MyTable & " (" & MyFields & ") VALUES (" & _
        Quote(SplitData(0)) & "," & Quote(SplitData(1)) & "," & Quote(ValueGet(.VarCleanMessageText, "disp=")) & "," & _
        Quote(ValueGet(.VarCleanMessageText, "policy=")) & "," & Quote(ValueGet(.VarCleanMessageText, "src_ip=")) & "," & _
        Quote(ValueGet(.VarCleanMessageText, "src_port=")) & "," & Quote(ValueGet(.VarCleanMessageText, "dst_ip=")) & "," & _
        Quote(ValueGet(.VarCleanMessageText, "dst_port=")) & "," & Quote(ValueGet(.VarCleanMessageText, "pr=")) & "," & _
        Quote(ValueGet(.VarCleanMessageText, "src_intf=")) & "," & Quote(ValueGet(.VarCleanMessageText, "dst_intf=")) & "," & _
        Quote(ValueGet(.VarCleanMessageText, "src_ip_nat=")) & "," & Quote(ValueGet(.VarCleanMessageText, "msg="))  & "," & _
        Quote(ValueGet(.VarCleanMessageText, "proxy_act="))  & "," & _
        Quote(ValueGet(.VarCleanMessageText, "rule_name=")) & "," & Quote(ValueGet(.VarCleanMessageText, "header="))  & "," & _
        Quote(ValueGet(.VarCleanMessageText, "alram_name=")) & ")"
   
        ' Log the data to database using DSN, Table, SQLcmd and DBTimeout
        .VarGlobal01 = .ActionLogToODBC(MyDSN, MyTable, SQLcmd, DBTimeout)
        ' VarGlobal01 now holds the return value from the function.

    End With
End If

' Set the return value to indicate that the script ran correctly
Main = "OK"

End Function


Function Quote(Data)
    ' Replace all occurrences of ' with '' to escape existing quotes
    ' Wrap data with single quotes
    Quote = "'" & Replace(Data, "'", "''") & "'"
End Function

Function ValueGet(Message, Tag)

    ' This function will look for an occurrance of the Tag within the message.  
    ' If one is found it will return the associated Tag value

    Dim SPos
    Dim EPos
   
    ValueGet = ""
    'Is the tag found within the message? Case insensitive compare
    SPos = InStr(1, Message, Tag, vbTextCompare)
    If SPos > 0 Then
        'Move pointer past the tag
        SPos = SPos + Len(Tag)
        'Check for a quoted value
        If Mid(Message, SPos, 1) = """" Then
            'adjust pointer past quote
            SPos = SPos + 1
            'find end quote
            EPos = InStr(SPos, Message, """")
        Else
            'If unquoted, look for space separator
            EPos = InStr(SPos, Message, " ")
            'We might be at the last field so set pointer to end of message
            If EPos < 1 Then EPos = Len(Message) + 1
        End If
        If EPos > 0 Then
            'Return the value
            ValueGet = Mid(Message, SPos, EPos - SPos)
        End If
    End If

End Function
====================================