Const adOpenStatic = 3Const adLockOptimistic = 3Const adUseClient = 3Set objConnection = CreateObject("ADODB.Connection")Set objRecordset = CreateObject("ADODB.Recordset")objConnection.Open "DSN=Inventory;"objRecordset.CursorLocation = adUseClientobjRecordset.Open "SELECT * FROM Hardware" , objConnection, _ adOpenStatic, adLockOptimisticSet colSoundCards = GetObject("winmgmts:").ExecQuery _ ("Select * from Win32_SoundDevice")For Each objSoundCard in colSoundCards objRecordset.AddNew objRecordset("ComputerName") = objSoundCard.SystemName objRecordset("Manufacturer") = objSoundCard.Manufacturer objRecordset("ProductName") = objSoundCard.ProductName objRecordset.UpdateNextobjRecordset.CloseobjConnection.Close

(3321) 近视真的不能治么？真相何在？脱掉眼镜就在你轻轻的点击之中……试试贝茨方法、转眼球方法，周祥民方法。让你的眼睛瞬间舒畅！百度搜索一下“改善你的视力”，有很多方法的