Ive never done a database before and i found this in one of my books... I think it should work. The part of the program that is in bold is the issue i get an error that says "Update unable to find TableMapping['Table'] or DataTable 'Table'." From the da.Update(ds)... Please help ive been trying to figure this out for hours!!!!!!!!!!! Thank you

Public Class retailForm
Dim tempPrice As Double
Dim dbProvider As String
Dim dbSource As String
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter
Dim sql As String
Dim inc As Integer


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addItemButton.Click
Dim smallDishPrice As Double
Dim smallConePrice As Double
Const tax As Double = 0.07975
Dim totalTax As Double
Dim total As Double
If (itemsTextBox.Text.ToUpper = "SD") Then
smallDishPrice = 1.1
tempPrice = tempPrice + smallDishPrice
itemsOrderedListBox.Items.Add("Small Dish @ " & smallDishPrice.ToString("C2"))
ElseIf (itemsTextBox.Text.ToUpper = "SC") Then
smallConePrice = 2
tempPrice = tempPrice + smallConePrice
itemsOrderedListBox.Items.Add("Small Cone @ " & smallConePrice.ToString("C2"))
End If

totalTax = tax * tempPrice
subtotalLabel.Text = tempPrice.ToString("C2")
taxLabel.Text = totalTax.ToString("C2")
total = tempPrice + totalTax
totalLabel.Text = total.ToString("C2")


inc = 0



If inc <> -1 Then
MessageBox.Show("Yes")
Dim cb As New OleDb.OleDbCommandBuilder(da)
Dim dsNewRow As DataRow
dsNewRow = ds.Tables("itemlog").NewRow()

dsNewRow.Item("smallcone") = itemsTextBox.Text
' dsNewRow.Item("Surname") = txtSurname.Text

ds.Tables("itemlog").Rows.Add(dsNewRow)
da.Update(ds)
MsgBox("New Record added to the Database")
End If

itemsTextBox.Focus()
itemsTextBox.Text = ""

End Sub

Private Sub removeButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles removeButton.Click

Dim CurrPos As Integer = itemsOrderedListBox.SelectedIndex
itemsOrderedListBox.Items.RemoveAt(CurrPos)


End Sub

Private Sub retailForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim con As New OleDb.OleDbConnection


dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
dbSource = "Data Source = C:\KBCustard1.mdb"
con.ConnectionString = dbProvider & dbSource

con.Open()
sql = "SELECT * FROM log"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "itemlog")



con.Close()

inc = -1
End Sub

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





'Printing
'If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
'PrintDocument1.Print()
'End If
End Sub
End Class