Visual Basic - consulta en vb6 para bd Access

Hola a todos,

Necesitaría saber donde tengo el error, el error es Invalid property value. Esto es lo que tengo puesto:

Option Explicit

Private daoDB36 As Database
Private rs As DAO.Recordset
Private rs1 As DAO.Recordset
Dim sPath As String

Private Sub Form_Load()

sPath = "G:/COMUN/MEDIO AMBIENTE/clientes.mdb"
Set daoDB36 = DBEngine(0).OpenDatabase(sPath)
Set rs = daoDB36.OpenRecordset("Empresas", dbOpenDynaset)
Set Data1.Recordset = rs
Set rs1 = daoDB36.OpenRecordset("Fabrica", dbOpenDynaset)
Set Data2.Recordset = rs1
frmClientes.Frame2.Enabled = False
frmClientes.Frame3.Enabled = False
frmClientes.Frame4.Enabled = False
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 Not rs1.EOF
frmClientes.Data2.Recordset.FindNext (buscar1)
contador = contador + 1
SSTab1.Tabs = contador (Aqui sale el error)
SSTab1.TabCaption(contador - 1) = Data2.Recordset.Nombre_Fabri
Loop



End Sub

Lo que quiero hacer es que cuando cargue el programa salga la primera empresas con sus fabricas, cada fabrica en un Tabbed.
Agredecería vuestra ayuda.

Un saludo,

Data1.DataBaseName , esto te falta y después
Data1.RecordSource , la tabla .
El Recordset se usa para consultar un campo
Data1.Recorset!Campo