oCn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Temp\db1.mdb;") oRS = oCn.Execute("Select * From [myTable]") ? oRS.Fields(0).Name, CHR(9), oRS.Fields(1).Name DO WHILE NOT oRS.EOF ? oRS.Fields(0).Value, CHR(9), oRS.Fields(1).Value oRS.MoveNext ENDDOHTH