Me voy a desesperar (DB)

[sdnsdlm]

Paso a paso:
1- Abres Disco2.mdb
2- Vas a la ficha de Tablas
3- Click sobre la tabla Información
4- Pulsa el botón de Diseño
5- Click sobre el campo NombreDisco
6- Abajo tienes una serie de filas con información sobre el campo, la última de ellas pone Indexado, elige "Sí (sin duplicados)". Muy peligroso, pero por lo que veo es lo que quieres hacer, ¿has tenido en cuenta discos de distintos grupos que se llamen igual? No es algo muy extraño. Da igual, a lo que vamos.
7- Cierras y guardas los cambios

----> Ya has creado el índice sobre ese campo.

Vamos a VB y ejecutas el insert, te ha de quedar algo así:

Public Sub Añadir()
Dim base As Database
dim txtSQL as String
Set base = OpenDatabase("Disco2.mdb")
txtSQL="insert into Informacion (NombreDisco,Grupo,Original/Pirata,Fecha) values ('" & frmPrincipal.Text1(0).Text & "','" & .....
base.execute txtSQL
base.close
End Sub

El control de errores lo dejo para ti y tampoco he creado ningún espacio de trabajo JET. Pero bueno, debería funcionarte.

Saludos.