[VBA Excel] Connect the Access database and Show the data on Output Sheet

Simple to connect as M$ Acess Database via VBA Excel code and get this to sheet and range target, the code is advantage about one function name ConAccess and you can call this function pass format below

1:  Sub Con()  
2:    Call ConAccess("SELECT * FROM JobDetail", "Sheet1", "A1")  
3:    Call ConAccess("SELECT * FROM Machine", "Sheet1", "D1")  
4:    Call ConAccess("SELECT * FROM ReqDept", "Sheet1", "F1")  
5:    Call ConAccess("SELECT * FROM ReqSection", "Sheet1", "H1")  
6:    Call ConAccess("SELECT JobNo FROM JobDetail ORDER BY JobNo DESC", "Sheet1", "J1")  
7:  End Sub