这段代码？是什么意思。

2pl01

Private Function fill_subForm()
    On Error GoTo Exit_Err
    Dim CX As Integer
    Dim i As Integer
    strCurTable = IIf(Me!chkColHead, strTmpTableA, strTmpTableB)
    Me.subFrm.Form.RecordSource = strCurTable
    Dim xRst As ADODB.Recordset
    Set xRst = CurrentProject.Connection.Execute("Select  * From " & strCurTable)
    CX = xRst.Fields.Count
    strFstItem = xRst.Fields(0).Name
    strFstType = xRst.Fields(0).Type
    strCurItem = ""
    For i = 1 To CX
        If strCurItem <> "" Then strCurItem = strCurItem & ";"
        strCurItem = strCurItem & xRst.Fields(i - 1).Name
        If Not Me!chkColHead Then
            Me!subFrm.Form("lblTit" & i).Caption = ""
        Else
            Me!subFrm.Form("lblTit" & i).Caption = xRst.Fields(i - 1).Name
        End If
        Me!subFrm.Form("txtNR" & i).ControlSource = xRst.Fields(i - 1).Name
    Next
    If CX = Me!subFrm.Form.Controls.Count / 2 Then Exit Function
    For i = CX + 1 To Me!subFrm.Form.Controls.Count / 2
        Me!subFrm.Form("txtNR" & i).ColumnHidden = True
        Me!subFrm.Form("txtNR" & i).ColumnWidth = 0
    Next
    xRst.Close
    Set xRst = Nothing
    Me!subFrm.Form!txtNR1.ColumnHidden = False
    Me!chkColHead.Enabled = True
    Me!chkFirstCol.Enabled = True
    Me!cmdXMDB.Enabled = True
    Me!cmdDel.Enabled = True
    Exit Function
Exit_Err:
    MsgBox "错误：" & Err.Number & "，" & Err.Description, 64, "提示"
    Exit Function
End Function