hi, I'm  you may export the access's datas into the QTP 
datatable first,import it into the excel second.
haha,this maybe a foolish method  -_-||

Set a=createobject("adodb.connection")
Set b=createobject("adodb.recordset")
a.provider="microsoft.jet.oledb.4.0"
a.open "E:\raju\login.mdb"
b.open "select *  from login",a
i=1
Do while not b.eof
	If not dialog("Login").Exist(2) Then
	invokeapplication "C:\Program Files\Mercury 
Interactive\QuickTest 
Professional\samples\flight\app\flight4a.exe"
	End If
	dialog("Login").WinEdit("Agent Name:").Set b("User 
name")
	wait(1)
	dialog("Login").WinEdit("Password:").Set b
("password")
	dialog("Login").WinButton("OK").Click	
	datatable.SetCurrentRow(i)
	datatable(1,1)=b("User Name")
	datatable(2,1)=b("password")
    wait(1)
	If dialog("Login").Dialog("Flight 
Reservations").Exist(1) Then
	dialog("Login").Dialog("Flight 
Reservations").WinButton("OK").Click
	datatable(3,1)="Fail"
	dialog("Login").WinButton("Cancel").Click
	else
	datatable(3,1)="Pass"
	Window("Flight Reservation").Close
	End If
	i=i+1
	b.movenext
Loop
datatable.ExportSheet "E:\raju\db.xls",1


i think this is working properly