dim f as form
for each f in forms
if ucase(trim(f.name))=ucase(trim(rs("FormName"))) then
msgbox rs("FormName") & "已存在"
end if
next
for each f in forms
if ucase(trim(f.name))=ucase(trim(rs("FormName"))) then
msgbox rs("FormName") & "已存在"
end if
next
If Forms(i).Caption = rs("FormName") Then
msgbox rs("FormName") & "已存在"
End If
Next i