vc的ado连接oracle数据库的问题--原来好用，增加了一些流程控制后竟然连不上了，能分析一下吗

extern CString GPNO;
extern CString GMNO;
extern CString GCNO;
extern int i_GMNO;
extern int i_GCNO;
extern int i_GPNO_0;
extern int i_GPNO_1;
extern int i_GPNO_2;
extern int i_GPNO_3;
extern int i_GPNO_4;
extern int i_GPNO_5;BOOL Chuayandan::OnInitDialog()
{
UpdateData(false);
if(GMNO!="")
{
GetDlgItem(IDC_EDIT1q)->EnableWindow(FALSE);
m_1_1 = 0;
GetDlgItem(IDC_EDIT2q)->EnableWindow(FALSE);
m_1_2 = i_GCNO;

UpdateData(false);
}  
if(GCNO!="")
{
GetDlgItem(IDC_EDIT3)->EnableWindow(FALSE);
m_2_1 = 0;
GetDlgItem(IDC_EDIT4)->EnableWindow(FALSE);
m_2_2 = 0;
GetDlgItem(IDC_EDIT14)->EnableWindow(FALSE);
m_2_3 = i_GMNO;

UpdateData(false);

}
if(GPNO!="")
{
GetDlgItem(IDC_EDIT5)->EnableWindow(FALSE);
m_3_1 = i_GPNO_0;
GetDlgItem(IDC_EDIT6)->EnableWindow(FALSE);
m_3_2 = i_GPNO_1;
GetDlgItem(IDC_EDIT7)->EnableWindow(FALSE);
m_3_3 = i_GPNO_2;
GetDlgItem(IDC_EDIT8)->EnableWindow(FALSE);
m_3_4 = i_GPNO_3;
GetDlgItem(IDC_EDIT9)->EnableWindow(FALSE);
m_3_5 = i_GPNO_4;
GetDlgItem(IDC_EDIT10)->EnableWindow(FALSE);
m_3_6 = i_GPNO_5;
UpdateData(false);
}
   return TRUE;
}加了上述一些初始化用的控件，数据库连接语句没变，仍是：    CString strDBConnection;
    CString strSql;
    strDBConnection = "Provider=OraOLEDB.Oracle; Data Source=CTM_192.168.1.109; User Id=system; Password=manager";
    CAdoConnection adoConnection;    if(adoConnection.Open(strDBConnection))
AfxMessageBox("connection ok");
else
    AfxMessageBox("connection error");    CAdoRecordSet rs(&adoConnection);
    strSql.Format("delete from ZHONGYI.T12 where D1='%s' and D2='%s' and D3='%s'",str,st6,str10);
    if(rs.Open(strSql))
   AfxMessageBox("delete successful");
运行时，报错“connection error"
能帮忙分析一下吗？
初学vc，敬请指教。