I have sent you the full module to see if you can see where I have gone wrong or, to see where I can go from here. Because I am new to programming this is fustrating me BIG STYLE!!! :(
I have an msAccess db with 1 table named Bookings and the date collumn(spelt as date) is in possition 1 if that helps any!(a collumn optionCode is in possition 0)
I have not any sql because that was done in the builder when I did the adapter and dataset(placed the adapter onto the form). The dataset has got the whole Bookings table stored when connection is open.
I hope this makes it a little clearer as to what I am doing, and to how to help me.

xxx
Private Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirm.Click
'variables to connect to the rows in a database
Dim OrgName As String = txtOrgName.Text
Dim orgAge As String = txtOrgAge.Text
Dim orgHouse As String = txtOrgHouse.Text
Dim orgPhone As String = txtOrgPhone.Text
Dim orgPostcode As String = txtOrgPostcode.Text
Dim AddName1 As String = txtAddName1.Text
Dim AddAge1 As String = txtAddAge1.Text
Dim Addname2 As String = txtAddName2.Text
Dim AddAge2 As String = txtAddAge2.Text
Dim Addname3 As String = txtAddName3.Text
Dim AddAge3 As String = txtAddAge3.Text
Dim chosendate As Date = dtpChooseDate.Value
'declares the connection to a variable myConection
Dim myConnection As OleDb.OleDbConnection = oleDCBookingsAll
'variable for a Row/column/Table in a db
Dim myRow As DataRow
Dim myColumn As DataColumn
Dim Bookings As DataTable
'variable to hold the string value of the event type
Dim EventChoice As String
'creates a string variable holding event type to be read to the database
If rdbFeed.Checked Then
EventChoice = "FeedSP"
ElseIf rdbHalf.Checked Then
EventChoice = "WorkingHalf "
Else : EventChoice = "WorkingFull "
End If
'Sets a new row to be filled in the db
myRow = DsAllFields1.Bookings.NewBookingsRow
'sets a search of the database for the chosen date
Dim intRow As Integer
myConnection.Open()
DsAllFields1.Tables(0).DefaultView.Sort = "date"
intRow = DsAllFields1.Tables(0).DefaultView.Find("chosendat e")
Debug.WriteLine(intRow)
If intRow < 0 Then
myRow("date") = chosendate
myRow("name") = OrgName
myRow("age") = orgAge
myRow("house number or name") = orgHouse
myRow("post code") = orgPostcode
myRow("phone number") = orgPhone
myRow("optionCode") = EventChoice
'assign the text variables to the rows of a specific column if they are set as visible on the form
If grbAddPeople1.Visible And txtAddName1.Text <> "" Then
myRow("extraNameOne") = AddName1
Else : myRow("extraNameOne") = 0
End If
If grbAddPeople1.Visible And txtAddAge1.Text <> "" Then
myRow("extraAgeOne") = AddAge1
Else : myRow("extraAgeOne") = 0
End If
If grbAddPeople2.Visible And txtAddName2.Text <> "" Then
myRow("extraNameTwo") = Addname2
Else : myRow("extraNameTwo") = 0
End If
If grbAddPeople2.Visible And txtAddAge2.Text <> "" Then
myRow("extraAgeTwo") = AddAge2
Else : myRow("extraAgeTwo") = 0
End If
If grbAddPeople3.Visible And txtAddName3.Text <> "" Then
myRow("extraNameThree") = Addname3
Else : myRow("extraNameThree") = 0
End If
If grbAddPeople3.Visible And txtAddAge3.Text <> "" Then
myRow("extraAgeThree") = AddAge3
Else : myRow("extraAgeThree") = 0
End If
'fills the dataset with the user-input data
DsAllFields1.Bookings.Rows.Add(myRow)
'updates the adapter with the dataset items
Me.oleDABookinsAll.Update(DsAllFields1)
MessageBox.Show("Your date has been accepted and this booking has now been confirmed and stored. Thank you " & OrgName & "", MessageBoxButtons.OK)
'closes the connection with the database
myConnection.Close()
'sets the confirm button to disabled after they have already confirmed booking
btnConfirm.Enabled = False
Exit Sub
Else: MessageBox.Show(OrgName & " We are sorry but this date is not available for booking. You must now choose another.", "DATE UNAVAILABLE")
End If
End Sub