$file = "C:\nalmon.txt"
$db = "C:\cmdb.mdb"
; ----------------------------------------------------------------------- 


Break on
Dim $line
Dim $field
If Open(1,$file) = 0
	While @ERROR = 0
		$record = ReadLine(1)
		If NOT @error
			If $record
				$field = ""
				$field = Split($record,",")
				If Exist("$DB") = 0 ? "Database Not Found. Aborting..." Sleep 3 GoTo end EndIf
    		  	     $CNstring = "provider=microsoft.jet.oledb.4.0;data source=$DB;persist security info=false"
				$CMDtxt = "Select * from objectuse"
				$cn = CreateObject ("ADODB.Connection")
				$cmd = CreateObject ("ADODB.Command")
				$rs = CreateObject ("ADODB.RecordSet")
				$cn.connectionstring = $CNstring 
				$cn.Open
				$cmd.activeconnection = $cn
				$rs.cursortype = 3 
				$rs.locktype = 3 
				$rs.activecommand = $cmd
				$cmd.commandtext = $CMDtxt $rs.Open ($cmd)
				$rs.addnew
				$rs.fields.item("EventType").value = $field[0]
				$rs.fields.item("EventTypeCode").value = $field[1]
				$rs.fields.item("DataandTime").value = $field[2]
				$rs.fields.item("UserDNTree").value = $field[3]
				; $rs.fields.item("WorkstationDNTree").value = $field[4]
				$rs.fields.item("WorkstationAddress").value = $field[5]
				$rs.fields.item("ApplicationDNTree").value = $field[6]
				$rs.fields.item("ApplicationGUID").value = $field[7]
				$rs.fields.item("ApplicationVersionString").value = $field[8]
				$rs.fields.item("EventCodeMajor").value = $field[9]
				$rs.fields.item("EventCodeMinor").value = $field[10]
				$rs.fields.item("EventString1").value = $field[11]
				$rs.fields.item("EventString2").value = $field[12]
				$rs.fields.item("EventString3").value = $field[13]
				$rs.fields.item("EventString4").value = $field[14]
				$rs.fields.item("EventString5").value = $field[15]
				$rs.fields.item("ApplicationFlag").value = $field[16]
				$rs.update
				$rs.Close
				$objFSO=""
			EndIf
		EndIf
	Loop
Else
	?"Error opening $file"
EndIf
:END
  

$field = Split($record,",")

$field = Split(udfSqueeze($record,'",',"true"))