sqlCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & UserName & ";PWD=" & Passwordone & ";Initial Catalog=" & Data & ";Data Source=" & Server    sqlRecon.Open "select top 5 * from Inventory", sqlCon, adOpenStatic
        MsgBox "连接成功"
   
    ids = IIf(IsNull(sqlRecon!cInvCode), "", sqlRecon!cInvCode)
我使用的是sql2005 ,里面的数据也就十几万条这样吧,,,