请教这段代码是什么意思？

Question

sql = "select * from [" & strSheetName & "$]" '打开EXCEL表 
rs.Open sql, Conn, 3, 3 MsgBox rs.RecordCount 
Do Until rs.EOF 
For i = 0 To rs.Fields.Count - 1 
List1.AddItem rs.Fields.Item(i).Name 
If Not IsNull(rs.Fields.Item(i).value) Then 
List2.AddItem rs.Fields.Item(i).value 
Else 
rs.Update 
rs.Fields.Item(i).value = "peter" & i 
rs.Update 
End If 
Next i 
rs.MoveNext 

Answer 1

sql = "select * from [" & strSheetName & "$]" '打开EXCEL表 
rs.Open sql, Conn, 3, 3        '打开数据库 读写方式MsgBox rs.RecordCount            '弹出对话框  显示记录总数
Do Until rs.EOF                    循环  向list1添加从excel读取出来的数据,
For i = 0 To rs.Fields.Count - 1 
List1.AddItem rs.Fields.Item(i).Name 
If Not IsNull(rs.Fields.Item(i).value) Then 
List2.AddItem rs.Fields.Item(i).value 
Else 
rs.Update 
rs.Fields.Item(i).value = "peter" & i        如果为空  复制为perter & i
rs.Update 
End If 
Next i 
rs.MoveNext                          才疏学浅  这里高人多。弱弱的说

Answer 2

一楼说的基本没错，下面语句有问题
rs.Update 
rs.Fields.Item(i).value = "peter" & i        如果为空  复制为perter & i
rs.Update 看题意应该是下面这样才能运行
rs.EDIT
rs.Fields.Item(i).value = "peter" & i        如果为空  复制为perter & i
rs.Update