Botão para localizar arquivos de imagens jpg ou videos mp4

sabemos que para anexar os arquivos podemos usar os botões do access "icone parecido com clipe" - gostaria de substituir estes controles, quero criar um botão para inserir os anexos, quero tambem,  limitar o numero de anexos por registro para "1"

nesse codigo ele ja é limitado por uma foto, caso queira mais foto é so colocar mais controle de imagem

Código:

rivate Sub inserirfotos_Click()
Dim s As String
s = OpenCommDlg()
If s <> "" Then
    foto = s
    foto_AfterUpdate
  
 End If
End Sub
Private Sub Form_Current()

foto_AfterUpdate

End Sub
Private Sub foto_AfterUpdate()

Dim s As String
s = Nz(foto.Value, "")
If s <> "" Then s = IIf(Dir(s) = "", "", s)
On Error Resume Next
Imagem3.Picture = s
If err.Number <> 0 Then Imagem3.Picture = ""
On Error GoTo 0
End Sub