更改显示语言的2个函数,只是个思路...[2]

                    If rs.RecordCount = 1 Then
                        'If Trim(!ctlName) = Trim(ctl.Name) Then
                        ctl.Caption = !ctlCaption
                        '                        ctl.TabIndex = !ctlTabIndex
                        '                        ctl.ToopTiptext = !ctlToopTiptext
                        '                        ctl.Visible = !ctlVisible
                        '                        ctl.Enabled = !ctlEnabled
                        '                        ctl.Width = !ctlWidth
                        '                        ctl.Height = !ctlHeight
                        '                        ctl.Top = !ctltop
                        '                        ctl.Left = !ctlleft
             
              
                    End If

                    '                     .MoveNext
                    '                     Wend
                    .MoveFirst
                End If
            End With
        Next
        k = 0
    Next
Set rs = Nothing
End Function