Visual Basic - Duda sobre sistema de creacion de usuarios

Miren, estoy aprendiendo Visual Basic, he seguido un curso y todo bien hasta que tube que crear un sistema para que se pudieran crear usuarios. Tube que crear un login conectado a una base de datos, todo perfecto, el error esta cuando, después de haber iniciado sesión, estoy en el panel para crear un usuario y le doy click a "Crear Usuario" pero no pasa nada. Segun el curso que estoy siguiendo esta todo bien e identicamente programado, pero no pasa nada. Agregué un DataGrid para que me mostrara los usuarios creados en la base de datos y los muestra correctamente, pero no crea otro usuario.

Les dejo un link que subi con el proyecto entero: http://www.megaupload.com/?d=CTWC371U

Nota: Como se que en internet circulan muchos virus y gente pendeja e inmadura que lo crea y sube archivos para que otros los descarguen, es natural y común que lleguen a pensar que este archivo tiene algún virus. Obviamente no tiene, pero ustedes no me conocen y no pueden fiar de mi palabra, por lo tanto si alguien me quiere ayudar pero no confía, que me deje su mail, o me mande uno al mío (más abajo lo dejo) y se lo envió escrito, o fichero por fichero para que vea la extensión de éstos.

Mail: [email protected]

P.D: La base de datos es en Access.

corre el programa asi y veras el problema
Te falta el campo codigo:

Private Sub crearcuenta_Click()
'menos codigo
If ((id) = "") Or ((clave) = "") Or ((nombre) = "") Or ((apellido) = "") Or ((mail) = "") Or ((telefono) = "") Then MsgBox "Llene todos los campos por favor", 32, "Mensaje": Exit Sub

With RsUsuarios
'.Requery
.AddNew
!id = id.Text
!clave = clave.Text
!nombre = nombre.Text
!apellido = apellido.Text
!mail = mail.Text
!telefono = telefono.Text
!fecha = fecha.Value
.Update
'.Requery

End With
End Sub