Excel para acessar a transferência de dados do arquivo pelo servidor SQL

Eu tenho um problema ao transferir dados do MS Excel para o MS Access pelo SQL Server

aqui está o meu programa

 Public Sub DoTrans()
DoEvents
Sheets("Temp").Select
  Set cn = CreateObject("ADODB.Connection")
  'dbPath = Application.ActiveWorkbook.Path & "\Database2021.mdb"
  dbPath = "\\datasource\Temp\Database2021.mdb"
 dbWb = Application.ActiveWorkbook.FullName
 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 Table1 ([DataEnteredOn],[Date],[DATA],[EstimatedHours],[ActualHours],[Eff%],[Remarks],[ESR#] ) "
  'ssql = ssql & "SELECT * FROM [Excel 8.0;HDR=YES;DATABASE=" & dbWb & "]." & dsh

  ssql = ssql & "SELECT [DataEnteredOn],[Date],[DATA],[EstimatedHours],[ActualHours],[Eff%],[Remarks],[ESR#]  FROM [Excel 8.0;HDR=YES;DATABASE=" & dbWb & "]." & dsh
  cn.Execute ssql
  cn.Close
  
  Sheets("Temp").Select
    
   MsgBox "Your datas saved. If you want to check, Please click ""Complete Database"" button"

Call CLEARDATA

End Sub

A ENTRADA É 0,117

MAS A SAÍDA É 0,110

PRECISO CORRIGIR a conversão de dados.

Consulte o Snap Abaixo, tento ajustar as casas decimais. Mas não é trabalho