Use the following code, replacing "R:\Data\Databases\Old\TASQ10 - 2.accdb" with the path\filename of your database:

[vba]Dim daoDB As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field
Dim rs As DAO.Recordset
Dim i As Long
Set daoDB = DBEngine.OpenDatabase("R:\Data\Databases\Old\TASQ10 - 2.accdb")
Set tbl = daoDB.CreateTableDef("tblClientDetails")
Set fld = tbl.CreateField("ClientID", dbText, 255)
tbl.Fields.Append fld
Set fld = tbl.CreateField("FirstName", dbText, 255)
tbl.Fields.Append fld
Set fld = tbl.CreateField("LastName", dbText, 255)
tbl.Fields.Append fld
daoDB.TableDefs.Append tbl
daoDB.TableDefs.Refresh
Set rs = daoDB.OpenRecordset("tblClientDetails")
With ActiveSheet.Range("A1")
For i = 1 To .CurrentRegion.Rows.Count - 1
rs.AddNew
rs("ClientID").Value = .Offset(i, 0)
rs("FirstName").Value = .Offset(i, 1)
rs("LastName").Value = .Offset(i, 2)
rs.Update
Next i
End With[/vba]

You will need to set a reference to the Microsoft Office ##.0 Access database engine Object Library.