con.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0; Data" & _
          "Source=C:\test\test.mdb"
        cmd.CommandText = "select * into test in 'c:\test\testtxt.csv' 'excel" & _
        "8.0;' from AccessTest"
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()