Contador +1 filtrado

UPDATE tblFactus_Emisores SET tblFactus_Emisores.NFactura_Dr = "NFactura_Dr"+1

WHERE (((tblFactus_Emisores.Id_Emisor) Like [Formularios]![frmFactus_Cabecera_INSERT]![Emisor_ID]));

Function NextNFactura(TIPO As String)

On Error GoTo NextNFactura_err

Dim Funciones As DAO.Database

Dim VAR1 As DAO.Recordset

Dim siguiente

Dim sql

Set Funciones = DBEngine.OpenDatabase(CurrentDb.Name)

Set VAR1 = Funciones.OpenRecordset("select * from " & TIPO)

NextNFactura = VAR1!NFactura_Dr

siguiente = VAR1!NFactura_Dr + 1

sql = "update " & TIPO & " set NFactura_Dr=" & siguiente

Funciones.Execute (sql)

NextNFactura = siguiente

Exit Function

NextNFactura_err:

MsgBox "error" & Err & ":" & Error$, , ""

End Function