为什么不能清空?该如何解决

为什么不能清空???
Private   Sub   Command3_Click()
'On   Error   Resume   Next
Dim   strsql   As   String
MSF2.Visible   =   True
MSF2.Clear
MSF2.Row   =   1

MSF2.AllowBigSelection   =   True


lvw1.Visible   =   False

If   Command3.Caption   =   "查看记录 "   Then
    lvw1.Visible   =   False
    MSF2.Visible   =   True
    Command3.Caption   =   "切换 "
    connectSQL
    strsql   =   "select   a.cname,a.cbir,a.cwork,a.cdan,b.cdtime,b.cctel,b.cliwu   from   cs_info   a   inner   join   cs_ding   b   on   a.ctel=b.ctel ":
    If   runsql(strsql)   =   True   Then
          If   rct.EOF   Then   Exit   Sub
          rct.MoveFirst
         
    End   If
   
    Do   While   Not   rct.EOF
       
        With   MSF2
            .AddItem   " "
            .Row   =   .Rows   -   2
            .Col   =   0:   .Text   =   rct!cname
            .Col   =   1:   .Text   =   rct!cbir
            .Col   =   2:   .Text   =   rct!cwork
            .Col   =   3:   .Text   =   rct!cdan
            .Col   =   4:   .Text   =   rct!cdtime
            .Col   =   5:   .Text   =   rct!cctel
            .Col   =   6:   .Text   =   rct!cliwu
           
            rct.MoveNext
           
        End   With
       
    Loop
ElseIf   Command3.Caption   =   "切换 "   Then
    lvw1.Visible   =   True
    MSF2.Visible   =   False
    Command3.Caption   =   "查看记录 "
End   If
End   Sub
要求每按一次记录从头开始写入!   为什么总是不能晴空> > ???

------解决方案--------------------
为什么总是不能晴空> > ???
是，最近天很热。自己顶吧。
------解决方案--------------------
都不知道你在说什么问题,怎么回答?
------解决方案--------------------
蹭