Dim cmdText As String = "UPDATE Animals SET LatinName=?,LocationFound=?,AverageHeight=?," + "AverageWeight = ?, DietaryNeeds = ?, ConservationStatus = ?, " + "AverageLifeSpan = ?, BreedingSeason = ?, AverageLength = ? " + "WHERE AnimalName = ?"
        Using con = New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source = C:\Users\Kamran\Desktop\College\Computing Project\Animals.accdb")
            Using cmd = New OleDbCommand(cmdText, con)
                con.Open()
                cmd.Parameters.AddWithValue("@p1", nametxt.Text)
                cmd.Parameters.AddWithValue("@p2", latintxt.Text)
                cmd.Parameters.AddWithValue("@p3", locationtxt.Text)
                cmd.Parameters.AddWithValue("@p4", heighttxt.Text)
                cmd.Parameters.AddWithValue("@p4", Convert.ToDouble(heighttxt.Text))
                cmd.Parameters.AddWithValue("@p5", Convert.ToDouble(weighttxt.Text))
                cmd.Parameters.AddWithValue("@p5", weighttxt.Text)
                cmd.Parameters.AddWithValue("@p6", diettxt.Text)
                cmd.Parameters.AddWithValue("@p7", statustxt.Text)
                cmd.Parameters.AddWithValue("@p8", lifetxt.Text)
                cmd.Parameters.AddWithValue("@p8", Convert.ToDouble(lifetxt.Text))
                cmd.Parameters.AddWithValue("@p9", breedtxt.Text)
                cmd.Parameters.AddWithValue("@p10", lengthtxt.Text)
                cmd.Parameters.AddWithValue("@p10", Convert.ToDouble(lengthtxt.Text))
                cmd.Parameters.AddWithValue("@p11", txtimage.Text)
                cmd.ExecuteNonQuery()
            End Using
        End Using