Visual Basic - Algo dificil

Estoy haciendo una base de datos de pacientes, y lo que quiero es que al agregar un paciente nuevo, automaticamente me genere el numero de paciente que es:

ejemplo:

Llega el paciente "Pedro Jimenez" y al darlo de alta en el sistema, me debe de generar el numero de paciente(1),

Si llega otro paciente"Julia Roberts" (je je) y al darla de alta en el sistema me debe de generar el número de paciente(2)

Pero si al día siguiente llega "Pedro Jimenez" de nuevo, me de su número (1)

¿¿¿¿¿¿¿Como le puedo hacer???????

...:::Gracias:::...

Dificil ? No le veo lo dificil, de hecho es algo muy usual

Debes hacer un campo llamado ID y que sea de autoincremento.. cuando insertas un campo nuevo este automaticamente se aumenta

Asi, cada vez que das de alta otro nuevo, al dar en Aceptar se revia el nombre, si ya existe pues se regersa el ID

Por ejemplo :

Dim Dbs As Database, Resultado As Recordset
Set Dbs = OpenDatabase("Accesos.mdb")

Set Resultado = Dbs.OpenRecordset("SELECT * FROM Usuarios WHERE Nombre='" & Text1 & "';")

If Resultado.RecordCount <> 0 Then

MsgBox "Ya hay un Usuario con esas Nombre. Su ID es " & Resultado.Fields("ID"), vbOKOnly + vbExclamation

Else

Dbs.Execute "INSERT INTO Usuarios VALUES (0,'" & Text1 & "','" & Text2 & "','" & MD5(Text3) & "','" & Text4 & "')"

MsgBox "Usuario dado de alta correctamente", vbOKOnly + vbInformation

Dbs.Close

Como puedo poner eso en el codigo, es que no se muy bien.
Gracias