请高手看看,谢谢 myConnstr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=pfu.mdb';myCn:=CreateOleObject('ADODB.Connection'); 
myCn.Open(myConnstr); 
myCmd:=createOleObject('Adodb.Command'); 
myCmd.ActiveConnection:=myCn; 
myCmd.CommandText:='select location from locations'+   
                    ' where no='1000'; 
myRs:=CreateOleObject('Adodb.RecordSet'); 
myRs:=myCmd.execute; 
1、请问在函数里用种方法连数据库好不好? 
2、怎样把MyRs的记录赋给一个数组,不用循环。 
3、为什么输出MyRs.recordCount的值总是-1?