Public NotInheritable Class DGW_cls
    Inherits DataGridView

    Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
        If keyData = Keys.Enter Then
            Me.OnKeyPress(New KeyPressEventArgs("r"c))
            Return True
        Else
            Select Case keyData
                Case Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0,
                     Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9,
                     Keys.Back, Keys.Delete
                    Return False
                Case Else
                    Return True

            End Select
        End If

    End Function

End Class

Friend Sub DGW_KeyPress(sender As Object, e As KeyPressEventArgs)
        Dim dgv As DataGridView = TryCast(sender, DataGridView)
        Dim cell As DataGridViewCell = dgv.CurrentCell

        ch = 0

        If e.KeyChar = "r"c Then
            dgv.Update()
            dgv.EndEdit()

            If cell.IsInEditMode And sender.currentcell.columnindex = 1 Then
                Dim a As New adodb_con
                Dim str As String

                str = a.proc_xp("get_descr_by_nomenkl", dgv.CurrentRow.Cells(1).Value.ToString)
                If Len(str) <> 0 Then
                    dgv.CurrentRow.Cells(2).Value = str
                    dgv.CurrentCell = dgv.Rows(dgv.CurrentRow.Index).Cells(3)
                    mfr.st_label.Text = ""
                    mfr.st_label.ForeColor = Color.Black

                    ch = 1
                Else


                    dgv.CurrentRow.Cells(1).Value = ""
                    dgv.CurrentCell = dgv.CurrentRow.Cells(3)
                    dgv.CurrentCell = dgv.CurrentRow.Cells(1)


                    ' dgv.EndEdit()

                    mfr.st_label.Text = "Нет данных по введенному номенклатурному номеру!"
                    mfr.st_label.ForeColor = Color.Red

                End If

            End If

            If sender.currentcell.columnindex = 3 And ch = 0 And IsNumeric(dgv.CurrentCell.Value) Then
                dgv.CurrentCell = sender.rows(dgv.CurrentRow.Index + 1).Cells(1)
            End If
        End If

    End Sub

 dgv.CurrentRow.Cells(1).Value = ""

dgv.EndEdit()