could any one explain this code for me ?

[tony007]

Hi expert. could any one explain this code for me. I do not understand some parts of it. I know the output but not some parts of the code.Thanks

Private Sub processButton_Click()

  Dim fso       As New Scripting.FileSystemObject  <------
  Dim io        As Scripting.TextStream    <------

  
  Dim db        As DAO.Database
  Dim rst       As DAO.Recordset
  Dim fld       As DAO.Field
  '''Declreaing our variables
  Dim strBase   As String
  Dim strInsert As String
  Dim strFields As String
  Dim strValues As String
  Dim strTemp   As String
  Dim strFile   As String
  Dim strName   As String
  
  Set db = CurrentDb()
  
  Set rst = db.OpenRecordset(Me![ComboBox])
   
  strBase = "INSERT INTO " & Me![ComboBox] & "({%1}) VALUES ({%2})" <------

  strName = "c:\" & Me!ComboBox & " Data.sql"

  With rst  <------

    While Not .EOF
      strValues = ""  <------

      
            If Len(strFields) = 0 Then
        For Each fld In .Fields
          If Len(strFields) > 0 Then
      
            strFields = strFields & "," & fld.Name & ""
          Else
            '''strFields = "[" & fld.Name & "]"
            strFields = "" & fld.Name & ""
          End If
        Next fld
        strInsert = Replace(strBase, "{%1}", strFields)
      End If

           For Each fld In .Fields
        If Len(strValues) > 0 Then
          strValues = strValues & ","
        End If
        
        
        If IsNull(fld.Value) Then
        
       strValues = strValues & "null"
        Else
        v = fld.Value
        Select Case fld.Type
          Case dbMemo, dbText, dbChar
            strValues = strValues & "'" & v & "'"
          Case dbDate
            strValues = strValues & "#" & v & "#"
          Case Else
            strValues = strValues & v
        End Select
        
        End If
              
        
        
        
      Next fld
      
          strTemp = Replace(strInsert, "{%2}", strValues)
      strFile = strFile & strTemp & vbNewLine
      
      .MoveNext
    Wend
    rst.Close
  End With
  
    If Len(strFile) > 0 Then
    Set io = fso.CreateTextFile(strName)
    io.Write strFile
    io.Close
  End If
  
End Sub