How can I import excel to acess tables using visual basic for application?

Sub AccParam() 'Excel VBA to import a parameter query from Access into Excel
Dim MyDatabase As DAO.database
Dim MyQueryDef As DAO.QueryDef
Dim MyRecordset As DAO.Recordset

Set MyDatabase = DBEngine.OpenDatabase("C:\Users\User\Desktop\rtu\1 kurss\Datubāzes\db6\DB6.accdb") 'DB Name
Set MyQueryDef = MyDatabase.QueryDefs("qryStates") 'Query Name

Sheet1.Range("A11:T100").ClearContents 'Range to Clear
MyQueryDef.Parameters("[ChooseRegion]") = Sheet1.[f6].Value
Set MyRecordset = MyQueryDef.OpenRecordset 'Open the query
Sheet1.Range("A11").CopyFromRecordset MyRecordset

End Sub