My form uses Listbox and ComboBox and records are not saved in the database

Hi, I am new to VB and I need to write an application where users will pick values from ListBox and ComboBox to fill-in the records. I can pick some options and when I press the 'save' button, I get a successful message. I can move from record to record and see my changes were 'saved' but when I exit and preview data or restart the application, the data is back to the original.

I have set the Dataset property to 'Do not Copy' (I have tried 'Copy if newer' also) but that doesn't change a thing.

There are 3 tables: toto is the main table. toto_field1 contains value for a ComboBox and toto_field3 contains value for the ListBox.

Please help, this should be simple and it's driving me crazy!!!

========================================================

Here's the form's code and at the bottom, the code from the UpdateQuery used to update the table:

Imports System

Imports System.Data

Imports System.Data.SqlClient

Imports System.Media

Public Class Form1

Private Sub TotoBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotoBindingNavigatorSaveItem.Click

'My.Computer.Audio.Play("c:\Windows\Media\chimes.wav")

MessageBox.Show(Me.ListBox1.SelectedIndices.Count.ToString() & " items ont ete choisis")

Dim i As Integer

i = Me.ListBox1.SelectedIndices.Count

If i < 1 Or i > 3 Then

'SystemSounds.Exclamation.Play()

My.Computer.Audio.Play("c:\Windows\Media\chord.wav")

MessageBox.Show("Vous devez selectionner au moins 1 item et pas plus de 3")

Exit Sub

End If

If i > 0 Then

Dim x(i) As Double

Dim ix As Integer

For ix = 0 To i - 1

x(ix) = Me.ListBox1.SelectedIndices(ix)

MessageBox.Show(Me.ListBox1.SelectedIndices(ix).ToString())

Next

End If

'Me.SignsDataSet.EnforceConstraints = True

Try

Me.Validate()

Me.TotoBindingSource.EndEdit()

' Me.SignsDataSet.toto

Me.TotoTableAdapter.UpdateQuery()

My.Computer.Audio.Play("c:\Windows\Media\tada.wav")

MsgBox("Update successful")

Catch ex As Exception

My.Computer.Audio.Play("c:\Windows\Media\chord.wav")

MessageBox.Show("The " & ex.Source & " caused the following error: " & ex.Message)

End Try

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.SignsDataSet.EnforceConstraints = False

'TODO: This line of code loads data into the 'SignsDataSet.toto' table. You can move, or remove it, as needed.

Me.TotoTableAdapter.Fill(Me.SignsDataSet.toto)

'TODO: This line of code loads data into the 'SignsDataSet.toto_field1' table. You can move, or remove it, as needed.

Me.Toto_field1TableAdapter.Fill(Me.SignsDataSet.toto_field1)

'TODO: This line of code loads data into the 'SignsDataSet.toto_field3' table. You can move, or remove it, as needed.

Me.Toto_field3TableAdapter.Fill(Me.SignsDataSet.toto_field3)

Me.SignsDataSet.EnforceConstraints = True

End Sub

End Class

===========================================================

UpdateQuery:

UPDATE toto
SET field2 = toto_field1.field1, field3 = toto_field3.field3, field4 = toto_field3.field3
FROM toto INNER JOIN
toto_field1 ON toto.field1 = toto_field1.field1 INNER JOIN
toto_field3 ON toto.field3 = toto_field3.field3