Visual Basic Forum for Visual Basic Programmers VB

[azrina]

i want the data in my flexgrid to be saved in the database.
my problem is, it only saves the last line in the flexgrid, not from the first line..whts wrong with my coding??pls help..

here, i enclose the code

[vb]Private Sub btnSimpan1_Click()
Set Conn = GetConnection
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM pemeriksaanProduk", Conn, adOpenStatic, adLockOptimistic
Dim x
Dim y

'save value column 0
rs.AddNew
For x = 1 To MSFlexGrid1.Rows - 1
rs!Sampel = MSFlexGrid1.TextMatrix(x, 0)
Next

'save value column 1
For x = 1 To MSFlexGrid1.Rows - 1
rs!Jam_1 = MSFlexGrid1.TextMatrix(x, 1)
Next

'save value column 2
For x = 1 To MSFlexGrid1.Rows - 1
rs!Jam_2 = MSFlexGrid1.TextMatrix(x, 2)
Next

'save value column 3
For x = 1 To MSFlexGrid1.Rows - 1
rs!Jam_3 = MSFlexGrid1.TextMatrix(x, 3)
Next

'save value column 4
For x = 1 To MSFlexGrid1.Rows - 1
rs!Jam_4 = MSFlexGrid1.TextMatrix(x, 4)
Next

'save value column 5
For x = 1 To MSFlexGrid1.Rows - 1
rs!Jam_5 = MSFlexGrid1.TextMatrix(x, 5)
Next

rs.Update
rs.Close
Set rs = Nothing
MsgBox "Data Telah Disimpan", vbOKOnly, "Simpan Data"

End Sub [/vb]