alguien me exa una manita!!

bala_00
16 de Marzo del 2010
hola compañeros.
estoy aprendiendo un poco en este mundo de la programacion y estoy creando un programa para almacenar datos. pues en el modulo al que e yamado compras no me funciona intento guardar datos y me dice que no que es imposible. pongo el modulo a continuacion haber si alguien me puede ayudar.

Private Sub cmdCompras_Click()

Dim rsregistro As ADODB.Recordset

Set cnmodclientes = New ADODB.Connection
cnmodclientes.Provider = "Microsoft.ACE.OLEDB.12.0"
cnmodclientes.ConnectionString = (App.Path & "" & "BD" & "" & "datos.accdb")
cnmodclientes.Open

Set rsregistro = New ADODB.Recordset
rsregistro.CursorType = adOpenKeyset
rsregistro.LockType = adLockOptimistic
rsregistro.ActiveConnection = cnmodclientes
rsregistro.Source = "Select nregistro from compras ORDER BY nregistro"
rsregistro.Open


teoricamente el problema esta en la linea 7.
un saludos a todos y gracias de antemano compañeros

bala_00
16 de Marzo del 2010
os dejo el enlace del programa completo aver si alguin me puede ayudar a que funcione y acerle las correcciones necesarias.

http://www.megaupload.com/?d=EGN7UI5A

la contraseña es bala_00

muchas gracias por vuestra ayuda compañeros. un saludo