Recuperar o maior valor

Bom dia,

Estou com uma duvida/problema, eu tenho uma tabela que eu gera um código automático, 1,2,3,4,5 etc etc,
porém quando eu recupero o código para somar mais um, sempre recupera 0, segue o código.

=================================================================================================================
consSQL = "SELECT * FROM tbl_TMOLFornecimento"

Set DataSet = banco.OpenRecordset(consSQL, dbOpenDynaset)

If Not DataSet.EOF Then
cod_rec = DataSet![cod_rec] + 1
consSQL = "INSERT INTO tbl_TMOLRecebimento (fk_Embarcacao, cod_for, Data, Hora, Embarcacao, Recebe, PontoEntrega, ValorRecebimento, Migo, CRGT ,RT ,Observacao ,Usuario, DataSistema) " _
& " VALUES (" & txtId & ", " & cod_rec & " ,'" & txtData & "', '" & txtHora & "', '" & cmbFornece & "', '" & cmbNomeEmb & "', '" & cmbPontoEntrega & "', " & txtValorFornecido & ", '" & txtMigo & "', '" & txtCRGT & "', '" & txtRT & "', '" & txtObservacao & "', '" & txtChave & "', now() )"
DoCmd.RunSQL consSQL
End If

=================================================================================================================
Obrigado desde já

Boa tarde

eu uso este e não tenho problema algum

segue:

On Error Resume Next 'Tratativa de erros

Dim ULTIMO_REG As Double

ULTIMO_REG = DMax("seu_campo_numerico", "sua_tabela")
Me.seu_campo = ULTIMO_REG + 1