Rafa,
Vc pode trazer para o grid a coluna Identif da sua tabela, pois o conteúdo dessa coluna já existe na sua tabela, uma vez que o registro já existe.
Não necessariamente essa coluna precisa ficar visível para o usuário, mas para atender a sua rotina seria necessário.
Então:
Nas declarações do FORM declare:
Dim Identif As Long
'O AUTO NUMERADOR DO ACCESS É DO TIPO LONGO
Na sua SUB Preencher_Grade()
Incluia a linha -> msfAgenda.TextMatrix(X, 5) = "" & RS("Identif")
Iniba essa coluna para q o usuário não enxerge
No CLICK de MSFAGENDA
Coloque o seguinte código:
Identif = msfAgenda.TextMatrix(msfAgenda.Row, 5)
Na sua Sub cmdExcluir_Click()
Dim SQL
'Seria interessante tb vc exibir uma msgbox solicitando ao usuário a confirmação da exclusão do registro.
'Teste o valor de Identif, se estiver vazio ou nulo, não dispare a rotina de Delete.
SQL = "Delete From TB_CadContato Where Identif = " & Identif
DB.Execute SQL
Call LimparFormulario
txtNome.SetFocus
End Sub
