我正在尝试获取数据库中的数据，并在列表视图中显示（userform）。我遇到了一个错误，说“类型不匹配”，我很困惑什么部分是不匹配的，我已经搜索了这个错误的含义，但是我已经用正确的数据类型声明了我所有的变量。但是因为我有空白或者空值，所以它显示了一个错误。在这一行If not IsNull(Records(j, i)) Then li.ListSubItems.Add , , Records(j, i)上，我试图在listview上显示null或empty，不匹配错误消失了，但如果column1为空，column2不为空，column2上的值将粘贴到column1上。

Private Sub ListView_Data()
    On Error GoTo ERR_Handler
    Dim sql As String
    Dim con As ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim Records As Variant
    Dim i As Long, j As Long
    Dim RecCount As Long

    Set con = New ADODB.Connection

    con.Open "Provider=SQLOLEDB;Data Source=10.206.88.119\BIWFO;" & _
                          "Initial Catalog=TESTDB;" & _
                          "Uid=user; Pwd=pass;"

    sql = "select * from [TESTDB].[dbo].[tbl_MN_Omega_Raw]"

    rst.Open sql, con, adOpenKeyset, adLockOptimistic
    '~~> Get the records in an array
    Records = rst.GetRows
    '~~> Get the records count
    RecCount = rst.RecordCount

    '~~> Populate the headers
    For i = 0 To rst.Fields.count - 1
        ListView1.ColumnHeaders.Add , , rst.Fields(i).Name, 200
    Next i

    rst.Close
    con.Close

    With ListView1
        .View = lvwReport
        .CheckBoxes = False
        .FullRowSelect = True
        .Gridlines = True
        .LabelWrap = True
        .LabelEdit = lvwManual

        Dim li As ListItem

        '~~> Populate the records
        For i = 0 To RecCount - 1
            Set li = .ListItems.Add(, , Records(0, i))
            For j = 1 To UBound(Records)

                If not IsNull(Records(j, i)) Then li.ListSubItems.Add , , Records(j, i)

                'End If
            Next j
        Next i
    End With

ERR_Handler:

    Select Case Err.Number

        Case 0
        Case Else

            MsgBox Err.Description, vbExclamation + vbOKOnly, Err.Number

    End Select
End Sub