VBListView添加列类型不匹配

Private Sub addLIST()


Me.ListView1.ListItems.Clear
Call OpenConn
  rs.Open SQL, cn, 1, 1
  Do While Not rs.EOF
  Set addLVW = Me.ListView1.ListItems.Add(, , rs!样品编号, , 1) ' 老是报错类型不匹配  
  addLVW.SubItems(1) = rs!ypid
  addLVW.SubItems(2) = rs!样品编号
  addLVW.SubItems(3) = rs!样品名称
  addLVW.SubItems(4) = rs!来源方式
  addLVW.SubItems(5) = rs!来源类别
  addLVW.SubItems(6) = rs!样品类别
  addLVW.SubItems(7) = rs!规格型号
  addLVW.SubItems(8) = rs!样品批号
   
  rs.MoveNext
  Loop
   
  Call CloseConn


End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

  Dim yplb As String '样品类别
  Dim treeFlag As String
  Dim treepath, a, b, c As String
  treeFlag = Left(Node.Key, 1)
  If Me.Combo1.Text = "样品类别" Then
  yplb = ""
  Else
  yplb = Me.Combo1.Text
  End If
  Select Case treeFlag
  Case Is = "A"
  SQL = "select ypid,样品编号,样品名称,来源方式,来源类别,样品类别,规格型号,样品批号 from 样品登记表"
  SQL = SQL & " where 样品类别 like '%" & yplb & "%' ORDER BY 样品编号 ASC"
  Call addLIST
  Case Is = "B"
  SQL = "select ypid,样品编号,样品名称,来源方式,来源类别,样品类别,规格型号,样品批号 from 样品登记表"
  SQL = SQL & " where 来源方式='" & Node.Text & "' and 样品类别 like '%" & yplb & "%' ORDER BY 样品编号"
  Call addLIST
  Case Is = "C"
  treepath = TreeView1.SelectedItem.FullPath 'tree完整路径
  a = InStr(1, treepath, "\") '找第一个\分隔位置
  b = InStr(a + 1, treepath, "\") '找第二个 \分隔位置
  c = Mid(treepath, a + 1, b - a - 1) '将单位取出
  SQL = "select ypid,样品编号,样品名称,来源方式,来源类别,样品类别,规格型号,样品批号 from 样品登记表"
  SQL = SQL & " where 来源方式='" & c & "' and 来源类别='" & Node.Text & "' and 职工类型 like '%" & yplb & "%' ORDER BY 样品编号 ASC"
  Call addLIST
  End Select
  
End Sub

不知道如何处理了，请教高手！！！！

Set addLVW = Me.ListView1.ListItems.Add(, , rs!样品编号, , 1)
=>
Set addLVW = Me.ListView1.ListItems.Add(, , "id-" & rs!样品编号, , 1)