怎么会说没有SELECT CASE 或则是END SELECT

具体程序是这样的：
Public Sub Grid_Delete(ByVal grid As MSHFlexGrid, ByVal choice As Integer)
Select Case choice
Case 1
Dim Msg As String
Dim strSQL As String
Dim myTempRow As Integer
Call check_link

If fRow = 0 Then
MsgBox "请选择要修改的行！", vbOKOnly + vbInformation, "注意"
Exit Sub
End If
Msg = MsgBox("确定删除当前纪录吗?", vbYesNo + vbInformation)
If Msg = vbNo Then
Exit Sub
End If

'删除当前记录
strSQL = "DELETE * FROM Customer WHERE ORDERN='" & Grid1.TextMatrix(fRow, 0) & "'"

fCnn.Execute strSQL


If Grid1.Rows = 2 Then
Grid1.Rows = 1
Else
Grid1.RemoveItem fRow
End If
myTempRow = Grid1.Rows - 1
If myTempRow = 0 Then
Else
If fRow <= myTempRow Then
Grid1.TextMatrix(fRow, 0) = ""
End If
fRow = myTempRow
Grid1.TextMatrix(fRow, 0) = "*"

Call close_link
End Select
End Sub
代码错了吗？