objConn.Execute(strSql),,adCmdText + adExecuteNoRecords

Yerine

objConn.Execute strSql, , adCmdText + adExecuteNoRecords