謝謝各位,本人是新手菜鳥,以下這段代碼是什麼意思呀, 哪位好心的大哥,能告訴小弟下!!!!

Function CheckNull(fldField As ADODB.Field, Optional formatstr = "") As String
If IsNull(fldField) Then
CheckNull = ""
ElseIf Not IsNull(fldField) Then
CheckNull = CStr(Trim(fldField))
If formatstr > "" Then
CheckNull = Format(fldField, formatstr)
End If
Else
CheckNull = ""
End If
CheckNull = Replace(CheckNull, Chr(10), "")
CheckNull = Replace(CheckNull, Chr(13), "")
CheckNull = Trim(CheckNull)
End Function

有个问题要说一下, 对于 fldField (引用) 参数, IsNull(fldField) 返回总为 False, 不管是传递实例带是 Nothing.
这段代码....
...觉得应该重写
.判断引用是否有效应该使用 Is 运算符和 Nothing 关键字:
If Not objVar Is Nothing ...