重装前，这一小段代码用得好好的，重装后怎么就不行了，请老手教我

Question

小弟最近重装了操作系统，当然，VB6也跟着重装了重装系统前，下面这段代码用得好好的，重装后，打开之前保存的工程文件，发现这段代码无效了，这是怎么回事呢？Private Sub cmdDelete2_Click()
If MSHFlexGrid2.Clip = "" Then
    Exit Sub
Else
    Dim db As Database
    Set db = Workspaces(0).OpenDatabase(App.Path & "\mydb.mdb")
    If MSHFlexGrid2.Clip <> "" Then
        Dim sql1 As String
        If cboPtcname.Text = "" And List1.Text <> "" Then
            sql1 = "delete * from perday where 站='" & List1.Text & "' and 今='" & MSHFlexGrid2.Clip & "'"
        ElseIf List1.Text = "" And cboPtcname.Text <> "" Then
            sql1 = "delete * from perday where 站='" & cboPtcname.Text & "' and 今='" & MSHFlexGrid2.Clip & "'"
        End If
        db.Execute sql1
    End If
End If
MsgBox "清理成功！", vbOKOnly, "提示"
Dim sql As String
If cboPtcname.Text = "" And List1.Text <> "" Then
    sql = "select distinct 今 from perday where 站='" & List1.Text & "' order by 今 desc"
ElseIf List1.Text = "" And cboPtcname.Text <> "" Then
    sql = "select distinct 今 from perday where 站='" & cboPtcname.Text & "' order by 今 desc"
End If
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\mydb.mdb;" & "Persist Security Info=False"
conn.Open
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid2.DataSource = rs
rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing
End Sub点了“cmdDelete2”这个按钮之后，不起任何作用是不是编译环境出了什么问题，请老手教我！！！

Answer 1

重新画个按钮，把这段到吗拷到新按钮的click事件下试试

Answer 2

If MSHFlexGrid2.Clip = "" Then
  Exit Sub设置断点，调试看看，MSHFlexGrid2.Clip是否真的等于""，真的等于""就退出过程了。
查看MSHFlexGrid2的数据来自哪里？

Answer 3

请教我如何设置断点好吗，不好意思，小弟还没学到设置断点MSHFlexGrid2的数据来源应该是不会错的，因为MSHFlexGrid2上会显示出正确的记录，只是选中某行记录，点击“cmdDelete2”按钮却不起效果了

Answer 4

唉……，别设置断点了，照以下加msgboxPrivate Sub cmdDelete2_Click()
msgbox "11111111"
If MSHFlexGrid2.Clip = "" Then
msgbox "22222222"  
Exit Sub
Else
msgbox "33333333"
'
'
'
看看，跳出哪个对话框，如果一个都没有，那么是这个过程名与按钮名不一致，如弹出11111对话框说明，这个没问题，如果跳出222222对话框，说明MSHFlexGrid2.Clip = "" ，……

Answer 5

结果是：先跳出111111，再跳出222222说明MSHFlexGrid2.Clip = ""，不过奇怪了，MSHFlexGrid2明明有记录，而且我明明有选中其中的记录后再点按钮的，以前也这么做的都可以就是出在 MSHFlexGrid2.Clip 上了，.clip需要什么特殊的编译环境吗

Answer 6

小弟的问题是不是跟下面这位老外的问题一样呀http://www.bigresource.com/VB-Can-039-get-MSHFlexGrid-Clip-Property-to-work--k8gF0zJ5TJ.html 不过我看不太懂英文，呵呵

Answer 7

http://support.microsoft.com/kb/223071难道小弟只好再装一次VB6了？

Answer 8

问题解决了，安装了Visual Studio Service Pack 6为什么我不能结帖？登录了还会提示要登录？

Answer 9

要想不掉线，要用火狐浏览器，CSDN等于强制你用火狐浏览器。-_-