vb + access

备注字段为空时,出现错误 实时错误'94: 无效使用 Null
vb + access
bb = App.Path & "\xt.mdb"     SQL = "select 档案号,姓名,劳保福利,发放原因,单位,数量,发放时间,备注 from 员工劳保福利"
     SQL = SQL & " where 档案号='" & ii & "' ORDER BY 发放时间 ASC"
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & bb & ";Jet OLEDB:Database Password=123;Persist Security Info=False;"     rs.Open SQL, cn, 1, 1
       Do While Not rs.EOF
        Set addLVW = Me.ListView2.ListItems.Add(, , rs!档案号, , 1)
            addLVW.SubItems(1) = rs!姓名
            addLVW.SubItems(2) = rs!劳保福利
            addLVW.SubItems(3) = rs!发放原因
            addLVW.SubItems(4) = rs!单位
            addLVW.SubItems(5) = rs!数量
            addLVW.SubItems(6) = rs!发放时间
            addLVW.SubItems(7) = rs!备注
            rs.MoveNext
    Loop
    cn.Close
    Set cn = Nothing
备注字段为空时,出现错误 实时错误'94: 无效使用 Null