Mas problemas DB (ayuda SdsIm)

[meruelo]

Cuando intento añadir datos a la tabla, me da error. El codigo es este:

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 rec = base.OpenRecordset("Informacion", dbOpenTable)
rec.Index = "primarykey"
rec.Seek "=", frmPrincipal.Text1(0).Text
If rec.NoMatch Then
rec.AddNew
rec.Fields("Nombre") = 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


****

Posible fallo(el error me da en donde set rec= base.opendatabase)