求救SOS，为什么我的代码运行之后 ，删除的和修改的都不是选中的数据。。。

Question

void CCourseDlg::OnButtonNew() //增加课程设计
{
// TODO: Add your control notification handler code here
UpdateData(TRUE);
if(m_coursename.IsEmpty() || m_courseinfo.IsEmpty() || m_coursec.IsEmpty()||m_courseh.IsEmpty()||m_courset.IsEmpty()||m_courseder.IsEmpty())
{
MessageBox("基础信息不能为空！");
return;
}
ADO m_Ado;
m_Ado.OnInitADOConn();
CString sql = "select * from courseinfo";
m_Ado.m_pRecordset = m_Ado.OpenRecordset(sql);
try
{
m_Ado.m_pRecordset->AddNew(); //添加新行
m_Ado.m_pRecordset->PutCollect("coursename",(_bstr_t)m_coursename);
m_Ado.m_pRecordset->PutCollect("courseinfo",(_bstr_t)m_courseinfo);
m_Ado.m_pRecordset->PutCollect("coursec",(_bstr_t)m_coursec);
m_Ado.m_pRecordset->PutCollect("courseh",(_bstr_t)m_courseh);
m_Ado.m_pRecordset->PutCollect("courset",(_bstr_t)m_courset);
m_Ado.m_pRecordset->PutCollect("courseder",(_bstr_t)m_courseder);
m_Ado.m_pRecordset->Update(); //更新数据表记录
m_Ado.CloseRecordset();
m_Ado.CloseConn();
}
catch(...)
{
MessageBox("操作失败");
return;
}
MessageBox("添加成功");
m_listcourse.DeleteAllItems(); //删除列表控件
AddToGrid();

}void CCourseDlg::OnButtonDelete() //删除函数功能
{
// TODO: Add your control notification handler code here
int pos   = m_listcourse.GetSelectionMark();
ADO m_Ado;
m_Ado.OnInitADOConn();
CString sql = "select * from courseinfo";
m_Ado.m_pRecordset = m_Ado.OpenRecordset(sql);
try
{
m_Ado.m_pRecordset->Move(pos,vtMissing);
m_Ado.m_pRecordset->Delete(adAffectCurrent);
m_Ado.m_pRecordset->Update();
m_Ado.CloseRecordset();
m_Ado.CloseConn();
}
catch(...)
{
MessageBox("操作失败");
return;
}
MessageBox("删除成功");
m_listcourse.DeleteAllItems();
AddToGrid();

}