Sub qq()
Dim arr, arr1
arr = [a1:a10].Value
For i = 1 To UBound(arr)
arr(i, 1) = CCur(arr(i, 1))
Next
ReDim arr1(LBound(arr, 2) To UBound(arr, 2), LBound(arr, 1) To UBound(arr, 1))
arr1 = Application.Transpose(arr)
End Sub

Sub Get_from_DB()
'-----------------------------
     Dim cnn   As New ADODB.Connection
     Dim cmd   As New ADODB.Command
     Dim rst   As ADODB.Recordset
     '--------------------------
     Dim s As String
     Dim tmpAr                    
      
     cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
                             & ThisWorkbook.Path & "\" & ThisWorkbook.Name _
                             & ";" & "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
     cnn.Open
     With ThisWorkbook
     '++++++++++++ Искусственно задаем денежный формат +++++++++++++
     .Worksheets("Db_Sheet").Range("d2:d20").Style = "Currency"
     .Worksheets("Db_Sheet").Range("f2:f20").Style = "Currency"
     .Worksheets("Db_Sheet").Range("h2:h20").Style = "Currency"
     '++++++++++++++++++++++++++++++++++++++++++++++++++++++
     .Worksheets("Лист2").Range(Cells(4, 2), Cells(50, 9)).Clear
     End With
     Set rst = New ADODB.Recordset
         rst.CursorType = adOpenStatic
          
     Set cmd.ActiveConnection = cnn
         cmd.CommandText = "Select * from [Db_Sheet$a1:h16]"

         rst.Open cmd
         tmpAr = rst.GetRows
         tmpAr = Application.Transpose(tmpAr)
    
         With ThisWorkbook.Worksheets("Лист2").Range(Cells(4, 2), Cells(UBound(tmpAr) + 3, 9))
         .Select
         .Value = tmpAr
        End With
         
        rst.Close
        cnn.Close
         
     With ThisWorkbook
     '+++++++++++ Возвращаем обычный формат  ++++++++++++++++
     .Worksheets("Db_Sheet").Range("c2:h20").Style = "Normal"
     '++++++++++++++++++++++++++++++++++++++++++++++++++++++
     End With
'-----------------------------
End Sub