求救！ＶＣ连接ＳＱＬ　Ｓerver　问题！急急急！

大家好！
小弟遇到一问题，困饶了我很久！
在ＶＣ用ＡＤＯ连接ＳＱＬ　ＳＥＲＶＥＲ数据库，
通过ADO data和DataGrid控件能够显示出数据库表中的数据,没有错误
但通过代码连接不上，一直提示出现问题，最后是出现运行错误信息Runtime Error!我的系统是ＸＰ,SQL Server是个人版
代码如下：
::CoInitialize(NULL);
try
{
m_pConnection.CreateInstance("ADODB.Recordset");

　bstr_t　strConnect="Provider=SQLOLEDB;Database=lmsys;uid=sa;pwd=198512733;";
m_pConnection->Open(strConnect,"","",adModeUnknown);

}
catch(_com_error e)
{
CString errormessage;
errormessage.Format("Warning: 连接数据库发生异常. 错误信息: %s; 文件: %s; 行: %d\n", e.ErrorMessage(), __FILE__, __LINE__);
 AfxMessageBox(errormessage);
在连接字符串中用"Provider=SQLOLEDB;Server=451ED404384D4AF;Database=lmsys;uid=sa;pwd=198512733;"和"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=lmsys"都出现同样的问题，请各位帮帮我啊！感激不尽！