取出的数据字段值可能有null值,
赋值前,最好转化一下,null值是不能直接用的。
Public Function fun_ReturnNull(feilds As ADODB.Field) As String
'函数,用于把字段中的null转换成空字符串。
On Error Resume Next
If IsNull(feilds) Then
fun_ReturnNull = ""
Else
fun_ReturnNull = feilds.Value
End If
End Function