With ListViewCtrl.listitems.add

    .subitems(1)= num

    .subitems(2)= CStr(objRecordset.fields("Type").Value)

    .subitems(3)= CStr(objRecordset.fields("CreateTime").Value)

    .subitems(4)= CStr(objRecordset.fields(language).Value)

    If CStr(objRecordset.fields("Type").Value) = "Error" Then

    .ListSubItems(3).ForeColor = RGB(255, 0, 0)

    .ListSubItems(4).ForeColor = RGB(255, 0, 0)

    Elseif CStr(objRecordset.fields("Type").Value) = "Operate" And Not IsNull(objRecordset.Fields("Detection").Value) And Trim(objRecordset.Fields("Detection").Value) <> "" Then

    .ListSubItems(3).ForeColor = RGB(0, 0, 255)

    .ListSubItems(4).ForeColor = RGB(0, 0, 255)

    End If

End With 

试出来了，这么写