Insert records

I have three reading,

I have to insert first reading first (text1.text) , After I save the first reading for first records, I want it pop up the messagebox, You want to add records for reading two? Text1.text = text1.text + 1, If I click yes, now text1 show me number 2 that mean it increase to 2 from first reading. I am no idea to start it. How to do that?

I don't understand the question.

Lets start with what is a "reading"?

Like this, I have to insert three records into the database.The id number for each records are "1" ,"2", "3". This Id number are unique.

After finish insert the record for Id number 1 and save the records for Id 1, it want to pop up the message, How to pop up messagebox and said "You record for ID 1 is saving, You want to insert ID 2" and so on. After ID number 3 is saving, I don't want to pop up the messagebox again.. How to do that?

Quote:

---

MsgBox "You record for :" & Combo9.Text & " is saving!", vbOKOnly + vbInformation, "Info"

Combo9.Text = Combo9.Text + 1

If MsgBox("You want to insert record for ID:" & Combo9.Text & "?", vbQuestion + vbYesNo) = vbYes Then

---