Dim cnn As New ADODB.Connection
Dim sq As String
cnn.ConnectionString = "dsn=baifulin;uid=sa"
cnn.Open
rs.Open "select * from lab1", cnn, 1, 3
Dim i As Integer
Dim Item As ListItem

For i=1  To ListView1.ListItems.Count

If ListView1.ListItems(i).Checked Then '判断哪几条数据是被选中的

Print ListView1.ListItems(i)’这里我选几条数据就有form上打印几条，这里是正常的

rs.AddNew
rs.Fields("生产批号") = ListView1.ListItems(i)'将选中的数据存到lab1表里
'这里出问题了，无论我选几条，最后一条数据存不了
End If
Next
cnn.Close
Set cnn = Nothing

找到原因了，缺少了rs.update

晕，3楼说的是什么呀，牛头不对马嘴，