Alterar Conversor mdb para texto?

[jclf]

Olá pessoal

Estou usando o código abaixo para converter um arquivo teste.mdb (access) em arquivo *.txt (texto).

alguém saberia me dizer como posso modificar o codigo para que a cada mil registros ele abra de novo a janela "Salvar como" e eu possa salvar de novo os mil registros seguintes? E assim por diante.....

Muito obrigado a todos,

jclf.

Dim rs As dao.Recordset
Dim fs As Scripting.FileSystemObject
Dim texto As Scripting.TextStream
Dim contador As Long
Dim salvarComo As New SaveFileDialog()
Dim caminho As DialogResult
Dim Arquivo As String

Try

db = DAODBEngine_definst.OpenDatabase("C:\teste.mdb")
rs = db.OpenRecordset("dados", dao.RecordsetTypeEnum.dbOpenTable)
rs.Index = "idnum"

salvarComo.CheckFileExists = False
salvarComo.Title = "Salvar como"
salvarComo.FileName = "*.txt"
salvarComo.Filter = "Documentos de texto (*.txt)|*.txt|Todos os arquivos (*.*)|*.*"
caminho = salvarComo.ShowDialog
Arquivo = salvarComo.FileName

fs = New Scripting.FileSystemObject

texto = fs.OpenTextFile(Arquivo, Scripting.IOMode.ForWriting, True)

Do Until rs.EOF

texto.Write(rs.Fields("numero").Value & "_" & rs.Fields("nome").Value & vbCrLf)

contador = contador + 1

rs.MoveNext()
Loop

texto.Close()
texto = Nothing
fs = Nothing
rs.Close()
rs = Nothing

Catch ex As Exception

Finally

MsgBox("Total de Registros Exportados : " & contador, vbInformation, "Informação")

End Try

End Sub

Editado Junho 2, 2009 por quintelab
Adicionado BBCode Code

[quintelab]

Isso é vb.net ou é asp?

Não me recordo de utilizar Recordset no vb.net.

Abraços...