//ATL

const CLSID CLSID_MicrosoftJetOLEDB40 =	{0xDEE35070, 0x506B, 0x11CF,
											{0xB1, 0xAA, 0x00, 0xAA, 0x00, 0xB8, 0xDE, 0x95}};

OleInitialize(NULL);

CDataSource ds;
CSession      ses;
CDBPropSet dbinit(DBPROPSET_DBINIT);
HRESULT hr;

dbinit.AddProperty(DBPROP_INIT_DATASOURCE, OLESTR( "D:\\Projects\\DB1.MDB" ));
dbinit.AddProperty(DBPROP_INIT_MODE, (long)DB_MODE_READWRITE);
		dbinit.AddProperty(DBPROP_INIT_PROMPT, (short)DBPROMPT_COMPLETE);
hr = ds.Open(CLSID_MicrosoftJetOLEDB40, &dbinit);
if(hr != S_OK)
  return  0 ;
hr = ses.Open(ds);
if(hr != S_OK)
  return  0 ;


CProcedures proc;
hr = proc.Open(g_ses);
if(hr != S_OK)
  return  0 ;
while(proc.MoveNext() == S_OK)
{
	if(!stricmp(proc.m_szName,  "proc" ))
		int hh =  0 ;
}
proc.Close();

CTables tables;
hr = tables.Open(g_ses);
if(hr != S_OK)
  return  0 ;
while(tables.MoveNext() == S_OK)
{
	if(!stricmp(tables.m_szName,  "tbl1" ))
		int hh =  0 ;
}
tables.Close();


ses.Close();
ds.Close();
OleUninitialize();