Visual Basic

<br />
If RS.BOF And RS.EOF Then<br />
MsgBox "No orders yet today", vbExclamation, "No records returned"<br />
Conn.Close<br />
rs.Close<br />
Set Conn=Nothing<br />
Set rs=Nothing<br />
Unload Me<br />
Exit Sub<br />
End If<br />

If I'm following you correctly, what you're wanting to do is capture the delete keypress for the datagrid. The only useful way I've found for doing this is to inherit your own datagrid and then override PreProcessMessage to check for the delete key. I use this to confirm deletion before actually carrying it out. The class looks something like this:

<br />
Public Class DataGridConfirm<br />
<blockquote>        Inherits DataGrid<br />
<br />
       Public Overrides Function PreProcessMessage(ByRef msg As System.Windows.Forms.Message) As Boolean<br />
<blockquote>Dim keyCode As Keys = CType((msg.WParam.ToInt32 And Keys.KeyCode), Keys)<br />
<br />
            ' If this is a "KeyDown" message and the key pressed was "Delete"<br />
            ' then we need to verify that the user actually wants to delete <br />
            ' the record by presenting a messagebox<br />
            ' Win32.Msg.WM_KEYDOWN just points to an Enum: WM_KEYDOWN=&H100<br />
            If msg.Msg = Win32.Msg.WM_KEYDOWN And keyCode = Keys.Delete Then<br />
                <blockquote>If ((MessageBox.Show("Are you sure you want to delete?", "AppTitle", _<br />
                    MessageBoxButtons.YesNo)) = DialogResult.No) Then<br />
<br />
                    ' They've selected no, so simply return<br />
                    Return True<br />
<br />
                End If</blockquote><br />
            End If<br />
<br />
            ' If the user has not canceled the request, flow into the normal<br />
            ' message processing of the base control<br />
            Return MyBase.PreProcessMessage(msg)</blockquote><br />
        End Function<br />
</blockquote><br />
End Class<br />

After creating this class, just substitute it for the regular DataGrid your currently using.

Hope that helps!

Public Interface ILogEntry  
  Public AddEntry(varOne as String)
  Public AddEntry(varOne as String, varTwo as String)  
  .  
  .  
  .
End Interface

α.γεεκ

Fortune passes everywhere.
Duke Leto Atreides

AddEntry(entryText As String)
AddEntry(varName As String, varValue As String)