If IsNumeric(Mid("Текст", i, 1)) = False Then
           MsgBox "В строке есть не числа"
           Exit Sub
      End If
Next i
fg - VSFlexGrid
cn - соединение с базой данных (ADODB.Connection)
fg.Editable = flexEDKbdMouse
fg.DataMode = flexDMBoundBatch
rcd.Open "SELECT * FROM r_Prods", cn, adOpenDynamic, adLockPessimistic
...... (Внести изменения в таблицу)
rcd.UpdateBatch        ......(Записать изменения)
rcd.CancelBatch        ......(Отменить изменения)