向listview添加数据库数据遇到问题

代码如下：
Private Sub Form_click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\user\My Documents\db6.mdb"
cnn.Open
rs.Open "select * from yh", cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount <= 0 Then
MsgBox "没有记录", 0 + vbExclamation, 提示
Else
With rs
Do
Dim clmX
Set clmX = ListView1.ListItems.Add(, , rs.Fields("yhm"), rs.Fields("index"))

.MoveNext

Loop Until rs.EOF
End With
End If
End Sub
运行后添加完第一个项目后显示“无效的关键字”
可我把数据库文件index列全改为0后显示正常
到底怎么回事啊！
index有0～4个图标
同时要是把 rs.Fields("index")改为0、1、2、3、4也没有错误发生

可否向数据库添加图片 向数据库添加一条记录 如何给ListView添加数据 如何向SQL数据库添加用户名,密码 如何向ACCESS数据库中添加记录 asp向数据库添加数据出现问题 VB向数据库添加数据(有代码) update set无法向数据库添加数据 asp如何向数据库添加一个表 不能向网站数据库中添加数据