[Resolvido] Exportar para TXT

opa!!

eae rapaziada! fmz?

to tentando exporta uns dadso do BD pra um txt meu codigo ta assim...

<%
DIM StringDeConexao, Conexao , GravarTxt , GerarTx
Dim rs, Texto, ObjFSO, TextoStr, rsbusca, fso
StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("../master.mdb")
Set Conexao = Server.CreateObject("AdoDb.Connection")
Conexao.Open StringDeConexao rsbusca = "SELECT * FROM Livros"
set rs = Conexao.execute(rsbusca) Set GerarTxt = Server.CreateObject("Scripting.FileSystemObject")
Set GravarTxt = GerarTxt.CreateTextFile(Server.MapPath("Teste.txt"),True)
While NOT rs.EOF
GravarTxt.Write(rs("Nf") & rs("Ctrc") & rs("Manifesto") & rs("DataEntrega"))
GravarTxt.Close
rs.movenext
Wend
response.redirect "categoria.asp"
%>
mais ta dando o erro...

Microsoft VBScript runtime error '800a005b'

Object variable not set /romaneios/exporta_txt.asp, line 14

alguem pode me ajuda ai?