Help Please I need to sort a table but this code does not work?

[IROY55]

The "problem" is your SQL statement. Change it to the following:

Set rst = dbs.OpenRecordset("Select * From " & strName & _
" Order By LastName, FirstName Asc", dbOpenDynaset)