将控件的信息存储到access出现bug,该如何处理

将控件的信息存储到access出现bug
基于对话框的

BOOL CSWDLGApp::InitInstance()
{
AfxEnableControlContainer();

::CoInitialize(NULL);
HRESULT hr;
try
{
hr=m_pCon.CreateInstance("ADODB.Connection"); //连接前创建实例
if(SUCCEEDED(hr))
{
m_pCon->ConnectionTimeout=3;
hr=m_pCon->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb","","",adModeUnknown);
}
}
catch(_com_error e)
{
CString temp;
temp.Format("连接数据库错误信息:%s",e.ErrorMessage());
::MessageBox(NULL,temp,"提示信息",NULL);
return false;
}

//下面是另一个模块的
CString sql="insert into PatientInfo(版本号,病历号,姓名,性别,年龄,科室,床号,标本类型,收费类别,临床诊断,备注,送检医师,送检日期,进检日期)values('"+m_Version+"', '"+m_PatientNo+"', '"+m_Name+"', '"+m_Sex+"','"+m_Age+"', '"+m_Department+"', '"+m_BedNo+"','"+m_SampleType+"', '"+m_ChargeType+"', '"+m_Diagose+"', '"+m_Remark+"', '"+m_Doctor+"','"+m_SendDate+"', '"+m_TestDate+"')";

theApp.m_pCon->Execute((_bstr_t)sql, NULL, adCmdText);


------解决方案--------------------
打印sql语句，然后到数据库中执行一下，估计有问题