Using an update statement for a Access database (Vb 2008)

[cyspeak]

I'm trying to create an update statement for my program that will update a database using SQL based on the data the user inputs, unfortunately I have the problem that I can only update one at a time and sometimes no of them work. If any help could be given it will be much appreciated.\[code\]Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click Dim con As New OleDb.OleDbConnection Dim d1 As New OleDb.OleDbDataAdapter Dim d2 As New OleDb.OleDbDataAdapter Dim d3 As New OleDb.OleDbDataAdapter Dim d4 As New OleDb.OleDbDataAdapter Dim d5 As New OleDb.OleDbDataAdapter Dim d6 As New OleDb.OleDbDataAdapter Dim d7 As New OleDb.OleDbDataAdapter Dim d8 As New OleDb.OleDbDataAdapter Dim d9 As New OleDb.OleDbDataAdapter Dim d10 As New OleDb.OleDbDataAdapter Dim dt As New DataTable("Animals") 'uses the 2010 compatible connection string con.ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source = h:\Animals.accdb" con.Open() MsgBox("UPDATE Animals SET LatinName = '" & latintxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'") d1 = New OleDb.OleDbDataAdapter("UPDATE Animals SET LatinName = '" & latintxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con) d2 = New OleDb.OleDbDataAdapter("UPDATE Animals SET LocationFound = '" & locationtxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con) d3 = New OleDb.OleDbDataAdapter("UPDATE Animals SET AverageHeight = '" & heighttxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con) d4 = New OleDb.OleDbDataAdapter("UPDATE Animals SET AverageWeight = '" & weighttxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con) d5 = New OleDb.OleDbDataAdapter("UPDATE Animals SET DietaryNeeds = '" & diettxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con) d6 = New OleDb.OleDbDataAdapter("UPDATE Animals SET ConservationStatus = '" & statustxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con) d7 = New OleDb.OleDbDataAdapter("UPDATE Animals SET AverageLifeSpan = '" & lifetxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con) d8 = New OleDb.OleDbDataAdapter("UPDATE Animals SET BreedingSeason = '" & breedtxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con) d9 = New OleDb.OleDbDataAdapter("UPDATE Animals SET AverageLength = '" & lengthtxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con) d10 = New OleDb.OleDbDataAdapter("UPDATE Animals SET AnimalName = '" & nametxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con) d1.Fill(dt) d2.Fill(dt) d3.Fill(dt) d4.Fill(dt) d5.Fill(dt) d6.Fill(dt) d7.Fill(dt) d8.Fill(dt) d9.Fill(dt) d10.Fill(dt) con.Close()End Sub\[/code\]