散分求助~~急！

Question

=========================================================================================
    '执行查询
    Dim Str As String
    Dim Term As String
      '按姓名查询
      If txtname.Text <> "" Then
            frmmain.lv.ListItems.Clear
            Set adoPrimaryRS = New Recordset
            adoPrimaryRS.Open "select * from record where guestname = '" & txtname.Text & "'", db, adOpenStatic, adLockOptimistic
                  For i = 0 To adoPrimaryRS.RecordCount - 1
                        frmmain.lv.ListItems.Add , , adoPrimaryRS.Fields(0).Value
                  For j = 1 To adoPrimaryRS.Fields.Count - 1
                        frmmain.lv.ListItems(i + 1).SubItems(j) = adoPrimaryRS.Fields(j).Value
                  Next
                  frmmain.lv.ListItems(i + 1).SubItems(1) = Format(adoPrimaryRS.Fields(1), "yyyy-m-d")
                  frmmain.lv.ListItems(i + 1).SubItems(10) = Format(adoPrimaryRS.Fields(10), "yyyy-m-d")
                  adoPrimaryRS.MoveNext
                  Next
                  Unload Me
      End If=========================================================================================以上是我查询的语句，显示数据控件为ListView。出错原因：当ListView中有空值时 查询就出错，显示错误为有NULL值。请问怎么解决？？感谢你的观看与答复！小弟QQ：112654

Answer 1

frmmain.lv.ListItems(i + 1).SubItems(j) = Trim$(adoPrimaryRS.Fields(j).Value & "")