Excel Carregar valor máximo da coluna Acess em textbox de formulário excel

[josequali]

Boa noite! Tenho a seguinte dúvida:

 

Como exibir em uma textbox do Excel no evento initialize o último id cadastrado na minha base dados no acess? Atualmente tenho um código, mas ele faz a contagem de linhas e adiciona + 1. Entretanto, não serve já por exemplo, se eu tiver 10 registro e excluir 2, o próximo ID cadastrado deveria ser 11, mas ele exibe 9 (8 registros + 1). Meu objetivo era que na tabela na coluna código ele encontra-se o valor máximo e adiciona-se + 1. Segue abaixo a fórmula que eu uso. Desde já agradeço a ajuda! 

 

@Midori @Basole

 

Sub carregarid()
conectdb
       
rs.Open "Select * from TabNaoConformidades", db, 3, 3
Me.txtId1.text = rs.RecordCount + 1


FechaDb
End Sub

 

 

 

[Basole]

@josequali bom dia!

Experimente a função max 

 

' Se o campo Origem for numerico (valor)
rs.Open "SELECT MAX(campo_Numerico) FROM TabNaoConformidades WHERE [campo_Numerico]>0", Db, 3, 3


' Se o campo Origem for do tipo string
rs.Open "SELECT MAX(campo_String) FROM TabNaoConformidades WHERE [campo_String]>'0'", Db, 3, 3

If Not rs.EOF Then

Me.txtId1.Text = rs(0).Value + 1

End If

 

[josequali]

@Basole @Basole @Basole @Basole @Basole @Basole @Basole perfeito! Muito obrigado