Visual Basic - consulta en vb para base en access

Hola a todos,

Tengo puesto esto en un programa que estoy haciendo, y me da el error Run time error '380': Invalid property value, ya he estado buscando y no encuentro la solución. Esto es lo que tengo puesto

SSTab1.Caption = ""
Dim buscar1 As String
Dim contador As Single
contador = 1
rs1.MoveFirst
buscar1 = txtCIF = Data2.Recordset.CIF
frmClientes.Data2.Recordset.FindFirst (buscar1)
SSTab1.TabCaption(contador - 1) = Data2.Recordset.Nombre_Fabri

Do While frmClientes.Data2.Recordset.EOF = False
frmClientes.Data2.Recordset.FindNext (buscar1)
contador = contador + 1
SSTab1.Tabs = SSTab1.Tabs + 1 'AQUI DONDE SALE EL ERROR SE PONE EN 99 y solo hay 4 registros en esa tabla.
SSTab1.TabCaption(contador - 1) = Data2.Recordset!Nombre_Fabri
Loop

Hola!

Como no digas dnd te da el error ... va a ser dificil ayudarte :S

Saludos,

SMK