紧急！！！快来看看这一段代码！关于数据库更新的！为什么.........????

这段代码只能更新一条数据！我想要全部更新！！

Private Sub Command1_Click()
Dim rsTemp As ADODB.Recordset
Dim rsDes As ADODB.Recordset
Dim strDes As String
Dim strTemp As String
Dim i As Integer
Set rsTemp = New ADODB.Recordset
Set rsDes = New ADODB.Recordset
strTemp = "select * from info "
strDes = "select * from info2"
If rsDes.State = adStateOpen Then rsDes.Close
If rsTemp.State = adStateOpen Then rsTemp.Close
rsTemp.Open strTemp, cnTemp, adOpenDynamic, adLockOptimistic
rsDes.Open strDes, cnDes, adOpenDynamic, adLockOptimistic
If rsDes.EOF And rsDes.BOF Then rsDes.AddNew

For i = 0 To rsTemp.Fields.Count - 1
If Not IsNull(rsTemp(rsTemp(i).Name)) Then
rsDes(rsTemp(i).Name) = Trim(rsTemp(rsTemp(i).Name))
End If
Next
rsDes.Update
MsgBox "sucess!!!!!"

End Sub
谢谢了！！