k1 = a.Sheets(1).Cells(Rows.Count, "B").End(xlUp).Row
    For i = 6 To k1
     mv = a.Sheets(1).Cells(i, 2)
     pp = a.Sheets(1).Cells(i, 3)
     'MsgBox nn
     Set rst = New ADODB.Recordset 
     rst.Open ("SELECT SUM(Ïîðòôåëü.Ðàçìåð_êðåäèòà) From Ïîðòôåëü WHERE (Ïîðòôåëü.Ìåñÿö_âûäà÷è = '" & CStr(mv) & "') AND (Ïîðòôåëü.Ïîðòôåëü = '" & CDate(pp) & "')"), conn 
     a.Sheets(1).Cells(i, 4).CopyFromRecordset rst 
    Next i

SELECT SUM(Ïîðòôåëü.Ðàçìåð_êðåäèòà) From Ïîðòôåëü WHERE (Ïîðòôåëü.Ìåñÿö_âûäà÷è = '" & CStr(mv) & "') AND (Ïîðòôåëü.Ïîðòôåëü = '" & CDate(pp) & "')

Sub OpenDB()
'===
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.DisplayStatusBar = False
Application.DisplayAlerts = False
'===

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim a As Workbook
Dim k As Long, k1 As Long, i As Long, mv As String, pp As Date
    Set a = ThisWorkbook
    k = a.Sheets(1).Cells(Rows.Count, "D").End(xlUp).Row 
    a.Sheets(1).Range("D6:D" & CStr(k) & "").ClearContents     
    '===
    
    Set conn = New ADODB.Connection 
    conn = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=D:\Винтажи.accdb;Uid=Admin;Pwd=;"
    conn.Open
    
    '===
    
    'If conn.State = 1 Then
    'MsgBox "Åñòü êîíòàêò!"
    'Else
    'MsgBox "Áåäà :("
    'End If
    
    '===
    k1 = a.Sheets(1).Cells(Rows.Count, "B").End(xlUp).Row
    For i = 6 To k1
     mv = a.Sheets(1).Cells(i, 2)
     pp = a.Sheets(1).Cells(i, 3)
     'MsgBox nn
     Set rst = New ADODB.Recordset 
     rst.Open ("SELECT SUM(Ïîðòôåëü.Ðàçìåð_êðåäèòà) From Ïîðòôåëü WHERE (Ïîðòôåëü.Ìåñÿö_âûäà÷è = '" & CStr(mv) & "') AND (Ïîðòôåëü.Ïîðòôåëü = '" & CDate(pp) & "')"), conn 
     a.Sheets(1).Cells(i, 4).CopyFromRecordset rst 
    Next i
'===
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.DisplayStatusBar = True
Application.DisplayAlerts = True
'===
End Sub

Портфель.Портфель = #" & Format(pp, "mm-dd-yyyy") & "#