Public Sub DoTrans()
    Set cn = CreateObject("ADODB.Connection")
    dbPath = Application.ActiveWorkbook.Path & "\FDData.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 fdFolio ([fdName], [fdOne], [fdTwo]) "
    ssql = ssql & "SELECT * FROM [Excel 8.0;HDR=YES;DATABASE=" & dbWb & "]." & dsh
    cn.Execute ssql

End Sub

Sub FromExceltoAccess()
    If cnopen = False Then GoTo endfunction
    'Set cn = CreateObject("ADODB.Connection")
    'cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=z:\docs\test.accdb"
    sSQL = "SELECT * INTO Master1 " & "FROM [Excel 8.0;HDR=YES;DATABASE=C:\Users\a.prasad.QUALITYGROUP\OneDrive - Quality Group\My Documents\Geff\Collection\Master.xlsx].[Master$]"
    cn.Execute sSQL, recs
endfunction:
    MsgBox "Records: " & recs
    cnclose
End Sub