编译通过，运行时出现runtime error

小弟编了一条简单的程序，是用来连接access数据库进行查询的，编译时通过了，但输入值进行查询时，出现runtime error，于是单步执行，就会出现unhandled exception in *.exe:0xC000005:access violation，请各位帮忙指点一下，以下就是程序，谢谢。// 客户管理系统Dlg.cpp : implementation file
//#include "stdafx.h"
#include "客户管理系统.h"
#include "客户管理系统Dlg.h"#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App Aboutclass CAboutDlg : public CDialog
{
public:
CAboutDlg();// Dialog Data
//{{AFX_DATA(CAboutDlg)
enum { IDD = IDD_ABOUTBOX };
//}}AFX_DATA // ClassWizard generated virtual function overrides
//{{AFX_VIRTUAL(CAboutDlg)
protected:
virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
//}}AFX_VIRTUAL// Implementation
protected:
//{{AFX_MSG(CAboutDlg)
//}}AFX_MSG
DECLARE_MESSAGE_MAP()
};CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
//{{AFX_DATA_INIT(CAboutDlg)
//}}AFX_DATA_INIT
}void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CAboutDlg)
//}}AFX_DATA_MAP
}BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
//{{AFX_MSG_MAP(CAboutDlg)
// No message handlers
//}}AFX_MSG_MAP
END_MESSAGE_MAP()/////////////////////////////////////////////////////////////////////////////
// CMyDlg dialogCMyDlg::CMyDlg(CWnd* pParent /*=NULL*/)
: CDialog(CMyDlg::IDD, pParent)
{
//{{AFX_DATA_INIT(CMyDlg)
s_no = _T("");
s_name = _T("");
s_sex = _T("");
s_id = _T("");
exam_seat = _T("");
//}}AFX_DATA_INIT
// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}void CMyDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CMyDlg)
DDX_Text(pDX, IDC_EDIT1, s_no);
DDX_Text(pDX, IDC_EDIT2, s_name);
DDX_Text(pDX, IDC_EDIT3, s_sex);
DDX_Text(pDX, IDC_EDIT4, s_id);
DDX_Text(pDX, IDC_EDIT5, exam_seat);
//}}AFX_DATA_MAP
}BEGIN_MESSAGE_MAP(CMyDlg, CDialog)
//{{AFX_MSG_MAP(CMyDlg)
ON_WM_SYSCOMMAND()
ON_WM_PAINT()
ON_WM_QUERYDRAGICON()
ON_BN_CLICKED(IDC_BUTTON_search, OnBUTTONsearch)
//}}AFX_MSG_MAP
END_MESSAGE_MAP()/////////////////////////////////////////////////////////////////////////////
// CMyDlg message handlersBOOL CMyDlg::OnInitDialog()
{
CDialog::OnInitDialog(); // Add "About..." menu item to system menu. // IDM_ABOUTBOX must be in the system command range.
ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
ASSERT(IDM_ABOUTBOX < 0xF000); CMenu* pSysMenu = GetSystemMenu(FALSE);
if (pSysMenu != NULL)
{
CString strAboutMenu;
strAboutMenu.LoadString(IDS_ABOUTBOX);
if (!strAboutMenu.IsEmpty())
{
pSysMenu->AppendMenu(MF_SEPARATOR);
pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
}
} // Set the icon for this dialog.  The framework does this automatically
//  when the application's main window is not a dialog
SetIcon(m_hIcon, TRUE); // Set big icon
SetIcon(m_hIcon, FALSE); // Set small icon

// TODO: Add extra initialization here

return TRUE;  // return TRUE  unless you set the focus to a control
}void CMyDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
if ((nID & 0xFFF0) == IDM_ABOUTBOX)
{
CAboutDlg dlgAbout;
dlgAbout.DoModal();
}
else
{
CDialog::OnSysCommand(nID, lParam);
}
}// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.void CMyDlg::OnPaint() 
{
if (IsIconic())
{
CPaintDC dc(this); // device context for painting SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0); // Center icon in client rectangle
int cxIcon = GetSystemMetrics(SM_CXICON);
int cyIcon = GetSystemMetrics(SM_CYICON);
CRect rect;
GetClientRect(&rect);
int x = (rect.Width() - cxIcon + 1) / 2;
int y = (rect.Height() - cyIcon + 1) / 2; // Draw the icon
dc.DrawIcon(x, y, m_hIcon);
}
else
{
CDialog::OnPaint();
}
}// The system calls this to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CMyDlg::OnQueryDragIcon()
{
return (HCURSOR) m_hIcon;
}void CMyDlg::OnBUTTONsearch() 
{
// TODO: Add your control notification handler code here
UpdateData(TRUE);
s_name="";
s_sex="";
s_id="";
exam_seat="";
UpdateData(FALSE);
if(s_no=="")
{
MessageBox("输入的注册编号不能为空！");
return;
}
_RecordsetPtr pRs; //定义记录集对象 if (FAILED(pRs.CreateInstance("ADODB.Recordset")))
{
AfxMessageBox("Create Instance failed!");
return;
}

CString strSRC=GetConnStr(); //数据库链接字符串

CString strSQL;
strSQL.Format("select * from 16baoming where s_no=%s",s_no);
if (FAILED(pRs->Open((_variant_t)strSQL,(_variant_t)strSRC,adOpenStatic,adLockOptimistic,adCmdText)))
{
AfxMessageBox("Can not open Database!");
pRs.Release();
return;
} while(!pRs->rsEOF)
{
_variant_t varName;
_variant_t varSex;
_variant_t varId;
_variant_t varExamseat;
varName = pRs->GetCollect ("s_name");
varSex = pRs->GetCollect ("s_sex");
varId = pRs->GetCollect ("s_id");
varExamseat = pRs->GetCollect ("exam_seat"); s_name=(char *)_bstr_t(varName);
s_sex=(char *)_bstr_t(varSex);
s_id=(char *)_bstr_t(varId);
exam_seat=(char *)_bstr_t(varExamseat); pRs->MoveNext();
} UpdateData(FALSE);
pRs.Release();}CString CMyDlg::GetConnStr() //把数据库链接字符串写成一个函数
{
char path[ MAX_PATH ] = { '\0' }; 
CString strSRC="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=";
GetCurrentDirectory( MAX_PATH, path ); 
CString pathstr;
pathstr.Format("%s",path);
strSRC +=pathstr;
strSRC += "\\16baoming.mdb"; 
strSRC +=";Persist Security Info=False"; return strSRC;
}