VB+SQL+ListView1

With ListView1
For i = 1 To ListView1.ListItems.Count
strQry = "INSERT INTO CheckOuts(username,sex) Values('" & .ListItems(.ListItems.Count).SubItems(1) & "','" & .ListItems(.ListItems.Count).SubItems(2) & "')"
Call ExecuteSQL(strQry)
Next
End With

要怎么才能循环把ListView1中的记录一条一条自动加入到数据库中呢

[此贴子已经被作者于2006-4-10 14:59:58编辑过]