Public Sub Region()

    ' Открытие базы данных
    Set dbAccess = OpenDatabase("C:\Work\Baza\Map.mdb")
    MySql = "SELECT Koordinat.X, Koordinat.Y" & _
            " FROM Koordinat" & _
            " ORDER BY Koordinat.ID_Koordinat;"
    ' Открытие рекордсета
    Set TestTable = dbAccess.OpenRecordset(MySql)
    ' Вставка рекордсета
    If (TestTable.RecordCount >  0 ) Then
    RecC = TestTable.RecordCount
    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto,  203 . 25 ,  399 #)
    For i =  0  To RecC
        TestTable.Move (i)
        a = TestTable.Fields( 0 )
        b = TestTable.Fields( 1 )
        .AddNodes msoSegmentCurve, msoEditingAuto, a, b
    Next i
        .ConvertToShape.Select
    End With
    Else: MsgBox "Not Found"
    End If
    ' Закрытие рекордсета
    TestTable.Close
    ' Закрытие базы данных
    dbAccess.Close

End Sub