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

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