Dim AddRecNeedClose As Boolean
Dim AddRec As ADODB.RecordsetIf AddRecNeedClose Then
    If datebase.TextMatrix(LastRow, 0) <> "" Then
        AddRec.Fields(1).Value = datebase.TextMatrix(LastRow, 0)
        AddRec.Update
        AddRec.Close
        AddRecNeedClose = False
        Set AddRec = Nothing
    ElseIf EnsureF1UnNull(AddRec) Then
        AddRec.Close
        AddRecNeedClose = False
        Set AddRec = Nothing
        Exit Function
    Else
        Exit Function
    End If
End If其中,datebase是数据库的名字  EnsureF1UnNull是一个函数名,这个函数也不太明白谢谢大家,非常感谢了