Me voy a desesperar (DB)

[meruelo]

Ahora cuando ejecuto el codigo de añadir en la base (el siguiente codigo):
Public Sub Añadir()
Dim wks As Workspace
Dim base As Database
Dim rec As Recordset
Dim mensaje As Integer
Dim i As Integer
Set wks = CreateWorkspace("", "admin", "", dbUseJet)
Set base = wks.OpenDatabase("Disco2.mdb")
Set rec = base.OpenRecordset("Informacion", dbOpenTable)
rec.Index = "Informacion"
rec.Seek "=", frmPrincipal.Text1(0).Text
If rec.NoMatch Then
rec.AddNew
rec.Fields("NombreDisco") = frmPrincipal.Text1(0).Text
rec.Fields("Grupo") = frmPrincipal.Text1(1).Text
rec.Fields("Original/Pirata") = frmPrincipal.Text1(2).Text
rec.Fields("Fecha") = frmPrincipal.Text1(3).Text
rec.Update
mensaje = MsgBox("bien")
Else: mensaje = MsgBox("mal")
End If
rec.Close
For i = 0 To 4
frmPrincipal.Text1(i).Text = ""
Next i

End Sub


Me pone Error3015 "Informacion" no es un indice de esta tabla. Consulte la coleccion indexes del objeto tabledef para determinar los nombres de indice valido.

ç¿COmo hago yo eso?