hey, i am using the following code to save values from a flex grid to access db

tblHrData("UniOrEq") = MSFlexGrid1.TextMatrix(currow1, 1)
tblHrData("Degs") = MSFlexGrid1.TextMatrix(currow1, 2)
tblHrData("Dips") = MSFlexGrid1.TextMatrix(currow1, 3)

but this code only saves one row if i modify it to the code below it saves the headers instead, in option explicit i have declared currow1 & 2 as variants

Dim confirm, n, dbrow As Integer
dbrow = MSFlexGrid1.RowSel
k = "abc"
currow1 = MSFlexGrid1.RowSel

tblHrData("UniOrEq2") = MSFlexGrid1.TextMatrix(currow2, 1)
tblHrData("Degs2") = MSFlexGrid1.TextMatrix(currow2, 2)
tblHrData("Dips2") = MSFlexGrid1.TextMatrix(currow2, 3)

k = MSFlexGrid1.TextMatrix(currow1, 0)
For n = 0 To 6
MSFlexGrid1.TextMatrix(currow1, n) = ""
MSFlexGrid1.TextMatrix(currow2, n) = ""

Next n

any ideas on how to overcome this? Pleeeeeeeeeeease

Thanks