在窗口表的DataColChanging事件中添加了这段代码,输入品名以后跳到下一列要等待五秒左右,可以怎样改写代码呢

If e.DataCol.Name = "品名" Then
    If e.newvalue IsNot Nothing Then
        Dim cmd As New SQLCommand
        cmd.C
        cmd.CommandText ="S elect Count(*) From {入库单} Where 工程名称 = \'" & e.DataRow("工程名称") & "\'and 供应商简称 = \'" & e.DataRow("供应商简称") & "\'and (品名 like \'%暂估%\'or 品名 like \'%合同价%\')"
        If cmd.ExecuteScalar >= 1 Then
            Dim Result As DialogResult
            Result = MessageBox.Show("此工程 此供应商 已暂估录入过! 是否继续录入", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Result = DialogResult.Yes  Then
                Return
            Else
                e.cancel  = True \'取消
                forms("暂估入库查询").open()
            End If
        End If
    End If
End If