2004-07-08 データ読み。のめも。 ADO VBA あとでvbsかなにかでつかうかもしれないので。 Dim conn, rs Set conn = CreateObject("ADODB.Connection") conn.Open ("Driver={Microsoft Access Driver (*.mdb)};data.mdb;") Set rs = conn.Execute("SELECT Sum(算数) AS 総得点 FROM 3年B組") MsgBox (rs.Fields("総得点").Value) rs.Close