newcn.DataSource   =   "..\..\alldata.mdb "

newcn.Provider   =   "Microsoft.Jet.OLEDB.4.0 "

Using   cn   As   New   OleDbConnection(newcn.ConnectionString)

cn.Open()

Dim   ds   As   New   DataSet

Dim   da   As   OleDbDataAdapter   =   New   OleDbDataAdapter( "SELECT   设备编号   FROM   设备列表 ",   cn)

da.Fill(ds,   "设备编号 ")

DbConn="Provider=MSDAORA;Data Source=ora9;User ID=system;Password=oracle"

conn.Open DbConn

Set Rst=Conn.executesql("select * from TB_PROJECT_CRC")

i=0;

Dim MyArray()

Do While Not  Rst.Eof

redim  Preserve MyArray(i)

MyArray(i)=rst("字段名")

i=i+1

rst.MoveNext

Loop