如何用vc+ado动态创建sql server数据库,请高手指教

[liufengping]

以下是我写的代码，但是不行，请各位高手指教

//create a Connection
_ConnectionPtr pConnection;
pConnection.CreateInstance(__uuidof(Connection));
//crate a Command
_CommandPtr pCommand;
pCommand.CreateInstance(__uuidof(Command));
//create a connection string
CString sql="Provider=SQLOLEDB.1;Password=123;"
"Persist Security Info=True; User ID=sa;"
"Initial Catalog=Northwind; Data Source=LFP82\\LFP";

try
{
pConnection->Open(_bstr_t(sql),"","",adModeUnknown);
_variant_t vNULL;
vNULL.vt = VT_ERROR;
vNULL.scode = DISP_E_PARAMNOTFOUND;//define non_para
CString strcratedatabase = "crate database robin";
pCommand->ActiveConnection = pConnection;
pCommand->CommandText = _bstr_t(strcratedatabase);
pCommand->Execute(&vNULL,&vNULL,adCmdText);
pConnection->Close();
}
catch (_com_error* e)
{
AfxMessageBox(e->ErrorMessage());
}
catch(...)
{
//AfxMessageBox("")
}

[huailairen]

报什么错啊？