Inserir todo Record Set dentro de um tabela, Backup e Restore

[Rodrigo Medeiros]

Amigos, boa noite

tenho um banco de dados em Sql server 2000

preciso fazer o backup em access para usuários LEIGOS, então criei algo assim:

ao iniciar o programa se ele encontrar o pen drive abre o formulario e inicia o backup

o backup e da seguinte forma

apaga todos os dados do banco de dados em access e insere os outros dados

a parte de apagar já fiz, ficou legal

Private Sub apagar_destino()
'APAGA TODOS OS DADOS DAS TABELAS
Dim cnnCom As New ADODB.Command
 For i = 0 To 17
  With cnnCom
  .ActiveConnection = connection
  .CommandType = adCmdText
   .CommandText = "DELETE FROM " & tabelas(i) & ";"
  .Execute
 End With
Next i
ProgressBar1.Value = ProgressBar1.Value + 1
End Sub

onde tabelas(i) e um array contendo todas as tabelas agora preciso inserir os dados tenho um RecordSet contendo todos os dados da tabelas(i), existe algum comando sql que insira todo o record set na tabela algo assim

.CommandText = "INSERT INTO " & tabelas(i) & "values(" & rs & ")"

lembrando que as tabelas são iguais

Editado Maio 7, 2010 por Rodrigo Medeiros
Adicionar tag CODE

[Rodrigo Medeiros]

amigos, procurando na Net encontrei uma solução usando o comando backup do sql server

consegui criar o arquivo.bak

Private Sub backup_teste()

Dim comando As New ADODB.Command

Dim strSQL As String

Dim caminho As String

caminho = "C:\backup.bak"

strSQL = "BACKUP DATABASE

 to disk = '" & caminho & "' WITH INIT"

With comando

.ActiveConnection = cnnRESTBD

.CommandType = adCmdText

.CommandText = strSQL

.Execute

End With

End Sub

minha pergunta, é possível restaurar o BD apartir deste arquivo com o comando Restore?

algo assim

strSQL = "restore DATABASE [sql] from disk = '" & caminho & "' WITH REPLACE"