sql - 実行時エラー '-2147467259 (80004005) odbc -- 呼び出しに失敗しました

Question

vba を使用して、Excel 2007 のレコードを sql2012 データベースにアップロードしています。
過去 3 か月間、次のコードを正常に使用していましたが、現在は以下のエラーで失敗します。

実行時エラー '-2147467259 (80004005) odbc -- 呼び出しに失敗しました

VBAでの私のコード:

Sub UpdateTable()
    Dim cnn As Object
    Dim wbkOpen As Workbook
    Dim objfl As Variant
    Dim rngName As Range
    Set wbkOpen = ActiveWorkbook
    ActiveSheet.Select
    Set rngName = Range(Range("A1"), Range("A1").End(xlToLeft).End(xlDown))
    rngName.Name = "TempRange"
    strFileName = wbkOpen.FullName
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFileName & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes"";"
    nsql = "INSERT INTO [odbc;Driver=SQL Server;Server=dedr;Uid=pmac;Pwd=123456;Database=dpgrt].stmt"
    nJOIN = " SELECT * from [TempRange]"
    cnn.Execute nsql & nJOIN <<<<<<<<< this is error line.
    MsgBox "Uploaded Successfully"
    cnn.Close
    Set wbkOpen = Nothing
End Sub

このエラーは昨日発生したばかりです。SQL データベースに変更はありませんでした。
親切に助けてください。