Visual Basic.NET - No se puede crear Lista Secundaria...

Hola a todos. Estoy realizando una aplicación para escritorio con VS 2005, una base de datos mdf (con una sola tabla), con conexión ADO.
No tengo problemas en conectarme a la BD, no aparece ningún error en todo el código, pero al ejecutar la aplicación, cuando quiero salvar los datos que he cargado en el cuadro de diálogo, me sale el siguiente mensaje de error: "No se puede crear una lista secundaria para el campo tbSujetos" (donde "Sujetos" es el nombre de la tabla).
Soy un autodidacta en este tema, que realizo solo por hobby. Perdón si estoy consultando por una tontería. Agradeceré me ayuden a resolver este problema.

mira la documentacion de microsoft al respecto

http://support.microsoft.com/default.aspx/kb/816799/es

Lamentablemente no me ha servido esta información. Refiere a la declaración de los componentes del cuadro de diálogo, y no tengo problemas con eso.
¿Es posible que el problema esté en la misma base de datos, en cómo está confeccionada?. Es formato mdb, me equivoqué la anterior vez al decir que es mdf. Gracias.

Habria que ver bien como tienes el codigo, o lo realizas con controles enlazados?.
Te aconsejo que lo realises desde codigo y si ya lo tienes asi, nos podrias mandar la parte del codigo en donde te tira ese error. Saludos

Hola, te envío el código que tengo, del cuadro de diálogo, pero no sale el mensaje allí, sino en ejecución de la aplicación.

Imports System.Windows.Forms

Public Class Dialog1

Dim MiConexión As ADODB.Connection
Dim MiRecordset As ADODB.Recordset

Sub MiConexión1()

MiConexión = New ADODB.Connection
MiConexión.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsAdministradorMis documentosVisual Studio 2005ProjectsSimona.3M(Ültimo)Simona.mdb;Persist Security Info=False"
MiConexión.Open()

MiRecordset = New ADODB.Recordset

MiRecordset.Open("Simona", MiConexión, CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)

MiRecordset.Close()
MiConexión.Close()

End Sub

Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub

Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub

Private Sub SujetosBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.SujetosBindingSource.EndEdit()
Me.SujetosTableAdapter.Update(Me.SimonaDataSet.Sujetos)

End Sub

Private Sub SujetosBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.SujetosBindingSource.EndEdit()
Me.SujetosTableAdapter.Update(Me.SimonaDataSet.Sujetos)

End Sub

Private Sub SujetosBindingNavigatorSaveItem_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.SujetosBindingSource.EndEdit()
Me.SujetosTableAdapter.Update(Me.SimonaDataSet.Sujetos)

End Sub

Private Sub Dialog1_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 'SimonaDataSet.Sujetos' Puede moverla o quitarla según sea necesario.
Me.SujetosTableAdapter.Fill(Me.SimonaDataSet.Sujetos)

End Sub

Private Sub Apellido_y_NombreComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Apellido_y_NombreComboBox.SelectedIndexChanged

End Sub

Private Sub Fecha_de_NacimientoDateTimePicker_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fecha_de_NacimientoDateTimePicker.ValueChanged

End Sub

Private Sub HoraDateTimePicker_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HoraDateTimePicker.ValueChanged

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub

Private Sub Latitud_MinutosTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latitud_MinutosTextBox.TextChanged

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

End Sub

Private Sub PaísComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaísComboBox.SelectedIndexChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try
'Borrar las ediciones actuales
Me.BindingContext(Me, "tbSujetos").EndCurrentEdit()
Me.BindingContext(Me, "tbSujetos").AddNew()

Catch eEndEdit As System.Exception
System.Windows.Forms.MessageBox.Show(eEndEdit.Message)

End Try

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End Sub
End Class

Por que no pones un punto de interrupcion y vas ejecutando con F8 y viendo como va todo en la ventana inmediato

Amigo Damián, hago esto y tampoco encuentro el error por aquí. Te dejo el fragmento de código, a ver qué opinás. Gracias.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try
'Borrar las ediciones actuales
Me.BindingContext(Me, "tbSujetos").EndCurrentEdit()
Me.BindingContext(Me, "tbSujetos").AddNew()

Catch eEndEdit As System.Exception
System.Windows.Forms.MessageBox.Show(eEndEdit.Message)

End Try

End Sub