Tengo escrito el siguiente código con los textBox enlazados con el DataBindings pero al tratar de moverme me da un error "No se pueden crear una lista secundaria para el campo Familias". Podria alguien indicarme el fallo que tengo.
Module Conexion
Public cn As New OleDb.OleDbConnection
Public BD As String = "C:\PozoBarria\PozoBarria\PozoBarria\PozoBarria.ac cdb"

Public Sub Open()
Dim sCnn As String
sCnn = String.Format("Provider=Microsoft.ACE.OLEDB.12.0;D ata Source=" & BD)
Try
cn = New OleDb.OleDbConnection(sCnn)
cn.Open()
Catch ex As Exception
MsgBox("No ha conectado con la BD " & BD, vbExclamation, "Aviso")
End Try
End Sub
End Module

Imports System.Data.OleDb

Public Class ClaseFamilias
Public adaptador As OleDb.OleDbDataAdapter
Public miTabla As New DataTable
Public constructor As OleDb.OleDbCommandBuilder
Public ds_Familia As New DataSet
End Class

Public Class frmCargarFamilia
Dim objetoFamilia As New ClaseFamilias

Private Sub frmCargarFamilia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'PozoBarriaDataSet.Familias' Puede moverla o quitarla según sea necesario.
Me.FamiliasTableAdapter.Fill(Me.PozoBarriaDataSet. Familias)
Open()
objetoFamilia.adaptador = New OleDb.OleDbDataAdapter("Select * FROM Familias", cn)
objetoFamilia.ds_Familia.Clear()
objetoFamilia.adaptador.Fill(objetoFamilia.ds_Fami lia)
End Sub

Private Sub btnSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiguiente.Click
Try
Me.BindingContext(objetoFamilia.ds_Familia, "Familias").Position += 1
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

End Class

Un saludo y gracias