Boa tarde!!!

Temos um projeto em VB6 que esta dando um erro no win7. Esta relacionado ao DataGrid, quando o usuario da um enter ou duplo clique o sistema trava. Nao é sempre, de cada 10 vezes trava umas 4 pelo menos. A seguir vou passar o codigo que utilizo no evendo ENTER e duplo clique:

 

Percebem que tando o duplo clique quanto o Enter chama a funcao "F_OK". O que eu poderia fazer para nao ocorrer mais esse problema? Obrigado!

Private Sub DgCli_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
       Case vbKeyReturn
          F_OK
    End Select
End Sub

 

Private Sub DgCli_DblClick()
    F_OK
End Sub

Private Sub F_OK()
    On Error GoTo TE_CFOK
    Dim ErrFunc As String
   
    ErrFunc = "F_OK"
   
    If Adodc1.Recordset.EOF = True And Adodc1.Recordset.BOF = True Then
       F_Men (1)
       Exit Sub
    End If
   
    RespCod = Adodc1.Recordset!Codigo
    RespDes = Adodc1.Recordset!Nome
    Unload Me
Exit Sub

TE_CFOK:
    Select Case F_Error(ErrForm, ErrFunc)
       Case 0
          Resume
       Case 1
          Resume Next
       Case 2
          Exit Sub
    End Select
End Sub

Sim, desativado o controle de usuario e mesmo assim ao instalar o Setup executa como administrador.

Nao treze, esta tudo certo. Isso ocorre no cliente, nao tem o VB6 instalado, somente instalo o setup do sistema e tudo funciona, portando dando enter no grid de cada 10 vezes ocorre uns 4 run time e fecha o programa.

 

Existe outra forma de implementar o duplo clique ou enter no datagrid?

Obrigado!