主题：效率提高

在窗口表的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