Database

if isnull(text1.value) = false then rst.field(0).value = text1.value
if isnull(text2.value) = false then rst.field(1).value = text2.value
if isnull(text3.value) = false then rst.field(2).value = text3.value
...
if isnull(text24.value) = false then rst.field(23).value = text24.value

ID    fname    lname    age
1     abc1     bbb      22
2     xyz2     bbb      32
3     klm      css      23

dim dbs as DAO.Database
dim rst as DAO.Recordset

' Use this code in any procedure where you want to
' call the database.

set dbs = CurrentDb

' Suppose that tblData is the table that store your data.

set rst = dbs.OpenRecordset("SELECT * FROM tblData ORDER BY tblData.ID")

with rst
    if .Recordcount > 0 then
        .MoveFirst
        .MoveLast       ' Populate the recordset.
    end if
    ' Post the record on the form.
    txtId.value = .Field(0).value
    txtfname.value = .Field(1).value
    txtlname.value = .Field(2).value
    txtage.value = .Field(3).value
end with