[Xav]

Case "Del"
            StatusBar1.Panels(1).Text = "Delete"
                              
                intJawab = MsgBox("Are you sure to delete this data?", vbYesNo + vbExclamation, "Delete")
                If intJawab = 6 Then 'vbYes
                rsPerusahaan.Delete
                'rsPerusahaan.Edit
                'rsPerusahaan!RS = "D"
                MsgBox "Successfully deleted."
                
                Else
                End If
                'EnableColor
                'EnableForm
                'DisableLock
                
            End

You've included the word End at the end. Of course it's going to close - that's what the End statement does!