Sub CreateDatabase()
    ThisWorkbook.Activate
    Sheets("SalaryTab").Select
    Sheets("SalaryTab").Range("A1:CU1499").Select

    Dim strPath As String
    Dim databaseAccess As Object
    Const acImport = 0

    strPath = "C:SecretFolderSecretDB"
    Set databaseAccess = CreateObject("Access.Application")
    Call databaseAccess.NewCurrentDatabase(strPath)

    databaseAccess.CurrentProject.Connection.Execute ("Create Table AccessSecretTable")

    '<<<<The below line gives an error "Variable not defined."
    DoCmd.TransferSpreadsheet acImport, 10, "AccessSecretTable", "C:SecretFolderPayroll.xlsb", True, "SalaryTab!A1:CU1499"

    databaseAccess.Quit
End Sub