Insert Data in Access Table in Database from Excel Sheet

I am using following code to insert data into Access Database, When i run it , it gives error " Untitled.png

Can anyone help me on this

Sub DoTrans()


Set cn = CreateObject("ADODB.Connection")
dbPath = Application.ActiveWorkbook.Path & "\BillData.mdb"
dbWb = Application.ActiveWorkbook.FullName
dbWs = Application.ActiveSheet.Name
scn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
dsh = "[" & Application.ActiveSheet.Name & "$]"
cn.Open scn
ssql = "INSERT INTO tblData ([BillingDate], [SearchString], [ReadTime], [L3R1], [L3R2], [L3R3], [L3R4], [L3R5], [L4R1], [L4R2], [L4R3], [L4R4], [L4R5], [Manual]) "
ssql = ssql & "SELECT * FROM [Excel 8.0;HDR=YES;DATABASE=" & dbWb & "]." & dsh
cn.Execute ssql
End Sub