Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cm As ADODB.Command

    Set cnn = New ADODB.Connection
    
    With cnn
        .CursorLocation = adUseClient
        .Provider = "MSDAORA.1"
        .ConnectionString = "Data source=XE; user id=1;password=1"
        .Open
    End With
    
    Set cm = New ADODB.Command
    
    With cm
        .ActiveConnection = cnn
        .CommandType = adCmdStoredProc
        .CommandText = "Picture"
    End With

    Set rs = New ADODB.Recordset
    Set rs = cm.Execute

set serveroutput on

DECLARE
    m1         NUMBER :=  0 ;
    hMap       BINARY_INTEGER :=  0 ;
    ret        BINARY_INTEGER :=  0 ;
    mapname    VARCHAR2( 256 ) := 'c:\SK.MAP ';
BEGIN
  ret := mapMessageEnable( 0 );
  hMap := mapOpenMap(mapname, m1);

  IF hMap =  0  THEN 
    DBMS_OUTPUT.PUT_LINE('No map ' || mapname);
    RETURN;
  END IF;
  ret  := plsPaintMapToBMP(hMap,  0 ,  0 ,  1500 ,  2700 , 'C:\ex.bmp', 32);
  mapCloseMap(hMap);
  hMap :=  0 ;

END;
/

Dim Oracon As ADODB.Connection
Dim recset As New ADODB.Recordset
Dim cmd As New ADODB.Command

'On Error GoTo err_test


Set Oracon = CreateObject("ADODB.Connection")
Oracon.ConnectionString = "Provider=MSDAORA.1;" & _
                          "Data Source=XE;" & _
                          "User ID=tim;" & _
                          "Password=1;" & _
                          "PLSQLRSet=1;"
Oracon.Open
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = Oracon

cmd.CommandText = Text1.Text
Set recset = cmd.Execute

DECLARE
    m1         NUMBER :=  0 ;
    hMap       BINARY_INTEGER :=  0 ;
    ret        BINARY_INTEGER :=  0 ;
    mapname    VARCHAR2( 256 ) := 'c:\SK.MAP ';
BEGIN
  ret := mapMessageEnable( 0 );
  hMap := mapOpenMap(mapname, m1);
  IF hMap =  0  THEN 
    DBMS_OUTPUT.PUT_LINE('No map ' || mapname);
    RETURN;
  END IF;
  ret  := plsPaintMapToBMP(hMap,  0 ,  0 ,  1500 ,  2700 , 'C:\Temp\ex.bmp', 32);
  mapCloseMap(hMap);
  hMap :=  0 ;
END;

Run-time error '-2147467259 (80004005)':

ORA- 28576 : lost RPC connection to external procedure agent
ORA- 06512 : at "TIM.PLSPAINTMAPTOBMP", line  1 
ORA- 06512 : at line  13 

DECLARE
    m1         NUMBER :=  0 ;
    hMap       BINARY_INTEGER :=  0 ;
    ret        BINARY_INTEGER :=  0 ;
    top        BINARY_INTEGER :=  0 ;
    left        BINARY_INTEGER :=  0 ;
    buttom        BINARY_INTEGER :=  500 ;
    right        BINARY_INTEGER :=  500 ;
    resol        BINARY_INTEGER :=  32 ;
    mapname    VARCHAR2( 256 ) := 'c:\SK.MAP';
    bmpname    VARCHAR2( 256 ) := 'C:\Temp\ex.bmp';
BEGIN
  ret := mapMessageEnable( 0 );
  hMap := mapOpenMap(mapname, m1);
  IF hMap =  0  THEN 
    DBMS_OUTPUT.PUT_LINE('No map ' || mapname);
    RETURN;
  END IF;
DBMS_OUTPUT.PUT_LINE(mapname);  
ret  := plsPaintMapToBMP(hMap, top, left, right, buttom, bmpname, resol);
  mapCloseMap(hMap);
  hMap :=  0 ;
END;