Still Having Trouble with Excel to Access

Hi Vladamir. In your module FromExcelToAccess you're attempting to run an insert query by refreshing an excel query table...that can't be done. You need to execute an insert statement. I don't know the ODBC method all that well; I use ADO. Here's what I'd do:

Public oCon As ADODB.Connection

Sub FromExcelToAccess()
     OpenDB
     oCon.Execute "INSERT INTO Table1 ( [Date], [UserName], DwgNo, Description, Material, QuoteNum, Status ) Select '06/21/2012', 'FLG-p', " & _
          Range("F10") & ", 'Some Text 42 x 77', 'Alum', '103112', 'Approved'"
    oCon.Close
End Sub

Sub OpenDB()
    Set oCon = CreateObject("ADODB.Connection")
    oCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\MyFiles\db1.mdb;"
End Sub