Из текстового файла в таблицу

Sub rpc()
Dim s() As String, n(1 To 3, 0 To 10000) As String
Dim i, f As String
file = "c:\Temp\lease.txt"
sl = ""
j = 0
 Open file For Input As #1
 
 Do While Not EOF(1)
Line Input #1, Stroka
Loop
Close #1
s = Split(Stroka, " ")
For i = 1 To UBound(s)
 
    If InStr(1, s(i), ";;;") > 0 Then
        X = -1
        sl = ""
        j = j + 1
    End If
    '----
    If InStr(1, s(i), "PC080") > 0 Then
               Beep
    End If
    '------
    If X Then
        
          If s(i) = "D" Then 'InStr(1, sl, "D a", vbTextCompare) > 0 Or InStr(1, sl, "dhcp", vbTextCompare) > 0 Then
               X = 0
               sl = ""
          Else
                If InStr(1, s(i), "address=") > 0 And Len(n(1, j)) = 0 And Len(sl) > 4 And X Then
                    n(1, j) = Right(sl, Len(sl) - 4) 'Comment
        
                End If
                      
                If InStr(1, s(i), "active-address=") > 0 Then
                    sl = ""
                    n(2, j) = Right(s(i), Len(s(i)) - 15) ' IP
                End If
                If InStr(1, s(i), "host-name=") > 0 Then
                     n(3, j) = Mid(s(i), 12, Len(s(i)) - 12) ' PCname
                     sl = ""
                     X = 0
                    'If X Then j = j + 1
                
                End If
          End If
     End If
    
sl = sl + " " + s(i) ' собираем коментарии
Next
 
j = j - 1
 
'Dim myDb As Database
'Dim myTab As TableDef
'Dim myF As Field
 
'Set myDb = CurrentDb()
'Set myTab = myDb.CreateTableDef("Laease")
'Set myF = myTab.CreateField("comment", dbText, 255)
'myTab.Fields.Append myF
'Set myF = myTab.CreateField("IP", dbText)
'myTab.Fields.Append myF
' Set myF = myTab.CreateField("PCName", dbText)
'myTab.Fields.Append myF
'myDb.TableDefs.Append myTab
 
    
    
 
    DoCmd.SetWarnings False
    DoCmd.RunSQL ("DELETE Laease.* FROM Laease;")
    DoCmd.SetWarnings True
    
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim flag As Boolean
Dim chec As Integer
Dim CountRec As Long  'переменная счетчика для определения строк в таблице
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Laease")
 
For i = 1 To j
    rst.AddNew
    rst.Fields("Comment") = n(1, i)
    rst.Fields("IP") = n(2, i)
    rst.Fields("PCname") = n(3, i)
    rst.Update
Next
 
End Sub