这个问题简单！ 你可以轻易得分！！机会难得！！！

Question

但是 出现的错误是 ：file1 是属性外编程！！

Answer 1

你可以建立一个新的函数( 如下用‘函数名称’)，用传递控件方法：
Public function 函数名称(ado as Object)
Rem Dim ado As New ADODB.Recordset
ado.Fields.Append "file1", adChar, adFldIsNullable + adFldMayBeNull
ado.Fields.Append "file2", adChar, adFldIsNullable + adFldMayBeNull
ado.Fields.Append "file3", adInteger, adFldIsNullable + adFldMayBeNull
ado.Fields.Append "file4", adChar, adFldIsNullable + adFldMayBeNull
ado.Fields.Append "file5", adChar, adFldIsNullable + adFldMayBeNull
ado.Fields.Append "file6", adChar, adFldIsNullable + adFldMayBeNull
End Function调用以上函数的方法：
call 函数名称(Ado数据控件)