vbscript update multi value record

Option Explicit
'On Error Resume Next
Const ForRead = 1    'Opens file for reading
Const ForWriting = 2 'Opens file for writing, overwriting file
Const ForAppend = 8  'Opens file for Appending
Const OverwriteExisting = True
Const NoOverWrite = False
Const strServerIP = "10.121.4.5"
 
 
'* Declare Variables
Dim strComputer, strText, objLogFile, strServerPath
Dim strTime, strDate, strTemp
Dim objShell, objWMIService, objExecObject, objFSO
Dim objConnection, objRecordSetAddress
 
strComputer = "."    '* This computer
    
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
'objFSO.OpenTextFile("C:\temp\address1.txt")
Set objLogFile=objFSO.OpenTextFile("C:\temp\address1.txt", ForAppend)
Err.Clear
Set objShell = WScript.CreateObject("Wscript.Shell")
 
 
'* Constants defing parameters for the DB object open method
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
 
'* Set connections to ADO DataBase objects
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSetAddress = CreateObject("ADODB.Recordset")
 
'* Open connection to Database
'* To use change the 2nd line below to match the server name
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Scripts\Address1.mdb"
 
objRecordSetAddress.CursorLocation = adUseClient
 
'* Connect to table
objRecordSetAddress.Open "SELECT * FROM Address_Table" , objConnection, _
 adOpenStatic, adLockOptimistic
 
objRecordSetAddress.AddNew
strTime = FormatDateTime(Now(),vbLongTime)
Err.Clear
objRecordSetAddress("LoginTime") = strTime
'* WScript.Echo "strTime is " & strTime
objLogFile.WriteLine strTime
strDate = FormatDateTime(Now(),vbShortDate)
objRecordSetAddress("LoginDate") = strDate
'* WScript.Echo "strDate is " & strDate
objLogFile.WriteLine strDate
 
Set objExecObject = objShell.Exec ("ipconfig /all")
Do While objExecObject.Status <> 1
     strText = objExecObject.StdOut.ReadLine
     If InStr(strText,"Host Name") Then
          objRecordSetAddress("HostName") = strText
          objLogFile.WriteLine strText
     End If 
     
     If InStr(strText,"IP Address") Then
         strTemp = objRecordSetAddress.Fields.Item("IPAdress")
         strTemp = strTemp & ", " & strText
         objRecordSetAddress("IPAdress") = strTemp 
     End If
      
     If InStr (strText, "IPv4") Then
           objRecordSetAddress("IPAddress") = strText
           objLogFile.WriteLine strText
     End If 
     
     If InStr(strText,"Physical") Then
          objRecordSetAddress("NicAddress") = strText
          objLogFile.WriteLine strText
     End If
                   
Loop
 
Set objExecObject = objShell.Exec ("cmd.exe /c set")
Do While objExecObject.Status <> 1
     strText = objExecObject.StdOut.ReadLine
     
     If InStr(strText,"USERNAME") Then
           objRecordSetAddress("Username") = strText
     End If
 
                   
Loop
objRecordSetAddress.update
objLogFile.WriteLine "***************************************************************"
objLogFile.Close

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98: