strTemp = "CREATE DATABASE " & strTemp & " WITH OWNER = postgres ENCODING = 'UTF8' TABLESPACE = pg_default LC_COLLATE = 'Russian_Russia.1251' LC_CTYPE = 'Russian_Russia.1251' CONNECTION LIMIT = -1;"
    With cnnDataPG
            ' для Postgres
        .CursorLocation = adUseClient
        .Mode = adModeReadWrite
        .ConnectionString = "Provider=PostgreSQL OLE DB Provider;Password=xxxx;User ID=postgres;Data Source=127.0.0.1;Location='';Extended Properties=''"
        .Open
        .Execute strTemp
    End With