You missed the parenthesis (also [] around table names wouldn't hurt):
db.Execute ("CREATE TABLE [" & TabName & "] (" _
& "Invoice_No Text(20)," _
& " Supplier_Name Text(20)," _
& " Purchase_Date Date," _
& " Delivery_Date Date," _
& " Material_Type Text(20)," _
& " Material_Name Text(20)," _
& "Order_Qty Number(DOUBLE)," _
& "Price_Per_Unit Number(DOUBLE)," _
& "Total_Amount Number(DOUBLE)," _
& "Received_Qty Number(DOUBLE)," _
& "Qty_Instock Number(DOUBLE) )")