اینو امتحان کنید:

For i = 1 To Flex.Rows -1
If Flex.TextMatrix(i, 0) = "" Then Exit For
With SANADADO.Recordset
.AddNew