Salvar arquivo nome duplicado

Prezados colegas, estou tentando salvar algumas imagens em uma pasta e preciso manter o mesmo nome, porém acrescentando um número quando a imagem for repetida do mesmo item.

Brasilfoto1.jpg
Brasilfoto1(2).jpg
Brasilfoto1(3).jpg

Desde já, agradeço pela ajuda!!

Boa tarde
Informe o código que está a usar

Alexandre Neves, primeiramente muito obrigado pelo retorno.
Não sou programador,mas tenho feito meu projeto com as informações disponibilizadas por todos os colegas aqui no fórum.
Até o momento, tenho usado o Dcount para verificar se já existe algum arquivo com o nome a ser salvo. Caso tenha, aproveito o nome e acrescento o valor Dcount.

O comando abaixo uso para nomear o arquivo

Private Sub C8_Click()
Me.imagem.Picture = Empty
Me.txtarquivo = ""
If IsNull(Me.txtIDProd) Or Me.txtIDProd = "" Then
MsgBox "Campos vazios encontrados...", vbCritical, "Informação"
Cancel = True
Exit Sub
Else
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Title = "Selecione o arquivo"
fd.Filters.Add "Arquivos de Imagem", "*.bmp; *.png; *.jpg", 1
fd.Show
If (fd.SelectedItems.Count > 0) Then
Dim strPathFileOrigem, strImagens As String
'arquivo escolhido
strPathFileOrigem = fd.SelectedItems(1)
Me.imagem.Picture = strPathFileOrigem
Me.txtCaminho = strPathFileOrigem
Dim X As Integer
Dim y As Integer
X = DCount("IDprod", "tbl_fotos", "IDprod=" & Me.txtIDProd)
If X < 1 Then
Me.txtarquivo = Me.EMPR & "_" & Format(Me.dia, "ddmmyy") & "_" & Me.txtIDProd & ""
Me.txtref = X
c13.Enabled = True 'habilita botão salvar
c8.Enabled = False 'desabilita botão inserir imagem
Else
y = X + 1
Me.txtarquivo = Me.EMPR & "_" & Format(Me.dia, "ddmmyy") & "_" & Me.txtIDProd & "(" & y & ")"

c13.Enabled = True 'habilita botão salvar
c8.Enabled = False 'desabilita botão inserir imagem
End If
End If
End If
End Sub

Este comando uso para salvar

Dim db As DAO.Database
Dim rst As DAO.Recordset
On Error Resume Next

'verifica se as caixas de texto estão vazias
If IsNull(Me.txtIDProd) Or Me.txtIDProd = "" Then
MsgBox "Campos vazios encontrados...", vbCritical, "Informação"
Cancel = True
Exit Sub

Else


'abre o recordset da tabela
Set rst = CurrentDb.OpenRecordset("Select * from tbl_Fotos")
'adiciona na tabela
rst.AddNew
rst("LocPedProd") = Me.txtlocpedprod
rst("IDprod") = Me.txtIDProd
rst("empr") = Me.EMPR
rst("data") = Me.dia
rst("CodEmpr") = Me.CODEMPR
rst("Caminho") = Application.CurrentProject.Path & "\Fotos\" & Me!txtarquivo & ".png"
rst("nome") = Me!txtarquivo
rst.Update
FileCopy Me.txtCaminho, Application.CurrentProject.Path & "\Fotos\" & Me!txtarquivo & ".png"

End If

rst.Close
Set rst = Nothing
'limpa as caixas de texto
'Me.txtCod.Value = ""
'Me.EMPR.Value = ""
Me.txtCaminho.Value = ""
Me.txtarquivo = ""
Me.imagem.Picture = Empty
MsgBox "Imagem salva com sucesso!", vbInformation + vbOKOnly, "Hespérides"
c8.Enabled = True
c13.Enabled = False

'End If
End Sub

Boa tarde
Pelo código, parece-me estar a funcionar
Onde está o erro?
- Na criação do nome da imagem colocado na caixa de texto?
- Na gravação no disco com o nome indicado na caixa de texto?

Boa tarde Alexandre!!
Gostaria de saber se tem uma forma mais simples de fazer esse processo.
Eu tenho feito meu projeto, mas confesso que estou a complicar algo que talvez seja simples, por falta de conhecimento.
Por isso resolvi lançar a pergunta no fórum.
Mais uma vez, agradeço imensamente o tempo e a disposição em me retornar.