Visual Basic - Ayuda: Problema de Visual con Access 2000

Estoy haciendo una aplicación de visual enlazada con una base de datos de Access 2000 a traves de Micorsoft ADO Data Control 6.0. Es un formulario MDI con varios formularios hijos. Visualizo los datos de Access con los formularios perfectamente, pero en uno de estos formularios necesito, mediante un boton de comando, añadir y eliminar registros con código.
En el boton añadir tengo el siguiente código:

Private Sub boton_añadir_Click()
Set db1 = OpenDatabase("c:\discos.mdb")
Set rdiscos = db1.OpenRecordset("Discos", dbOpenDynaset)
If codigo_disco.Text <> "" And precio.Text <> 0 Then
rdiscos.AddNew
rdiscos!codigo_disco = codigo_disco.Text
rdiscos!titulo = titulo.Text
rdiscos!autor = autor.Text
rdiscos!precio = precio.Text
rdiscos!discografica = discografica.Text
rdiscos.Update
rdiscos.Bookmark = rdiscos.LastModified
MsgBox "Registro Añadido"
Else: MsgBox "Introduce los datos"

End If
End Sub

Cuando lo ejecuto y doy al boton añadir me dice que no reconoce la base de datos. lo único que he hecho ha sido compactarla y reparala me sigue diciendo lo mismo.

¿Que puedo hacer? La opción eliminar no se como hacerla, os agradecería que tambien me lo dijeseis.
Gracias a todos y saludos.

Tengo un programa sencillo con lo que necesitas, y despues lo modificas, te lo envio a tu mail, saludos