MS Flex Grid

[ComITSolutions]

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 '<----- here you are assiging value to currow1

    tblHrData("UniOrEq2") = MSFlexGrid1.TextMatrix(currow2, 1) '<-- here you are using Currow2  for which value is not assigned
    tblHrData("Degs2") = MSFlexGrid1.TextMatrix(currow2, 2)'<-- here you are using Currow2 for which value is not assigned
    tblHrData("Dips2") = MSFlexGrid1.TextMatrix(currow2, 3)'<-- here you are using Currow2 for which value is not assigned

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

    Next n

I can see you are assigning value to Currow1 Not to Currow2, but you are using currow2 to access the value from MSFlexGrid1.

My guess is that, you have declared Currow2 variant variable but not initialised/assigned any value,
so it is taking value 0. So 0th row is nothing but column header!!