[Resolvido]apagar tabela viculada

Boa tarde Amigos

estou com um problema em apagar tabelas viculadas
quando faço a vinculação elas vem bonitinhas mas quando quero vincular outras de outro banco de dados
elas nao apagam , vicula outras com o mesmo nome acrecidas pelo 1, 2, assim vai....

vinculo assim

Private Sub CMDImportarFiliais_Click()


Me.COMFiliais.SetFocus
If Me.COMFiliais.Text = "" Then
MsgBox "Selecione primeiro uma filial!"
End
End If

   Me.Rot01.Visible = True
   Me.Repaint
   
Me.COMFiliais.SetFocus

   If Me.COMFiliais.Text = "PAJUÇARA" Then
   strCaminho = "D:\SysScoEsp\Bancos de dados\BaseFin001.mdb"
   códFilial = 1
 
   ElseIf Me.COMFiliais.Text = "MARANGUAPE" Then
   strCaminho = "D:\SysScoEsp\Bancos de dados\BaseFin002.mdb"
   códFilial = 2
   
......
 'Inicia o processo de vinculação
 
 DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Fluxo Caixa Red", "Fluxo Caixa Red", False
 DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Fluxo Caixa Sub Red", "Fluxo Caixa Sub Red", False

Beleza ate aqui
mais quando seleciono outra filial nao apaga as que nao preciso mais
usando o comando drop table


   Dim dbs As Database
   Set dbs = CurrentDb
   dbs.Execute "DROP TABLE Fluxo Caixa Red;"
   Set dbs = CurrentDb
   dbs.Execute "DROP TABLE Fluxo Caixa Sub Red;"

o interessante que ela apaga si tiver so um nome, como esta assim nao apaga...

Desde ja agradeço
Helder

Amigo,

Faça o DROP TABLE antes do processo de vinculação.

Sds,

sim... Amigo Charles eu já faço isso assim que abri o formulario
Valeu.. amigo

Amigo, não tem erro faça que dá certo!

Private Sub CMDImportarFiliais_Click()


Me.COMFiliais.SetFocus
If Me.COMFiliais.Text = "" Then
MsgBox "Selecione primeiro uma filial!"
End
End If

  Me.Rot01.Visible = True
  Me.Repaint
 
Me.COMFiliais.SetFocus

  If Me.COMFiliais.Text = "PAJUÇARA" Then
  strCaminho = "D:\SysScoEsp\Bancos de dados\BaseFin001.mdb"
  códFilial = 1

  ElseIf Me.COMFiliais.Text = "MARANGUAPE" Then
  strCaminho = "D:\SysScoEsp\Bancos de dados\BaseFin002.mdb"
  códFilial = 2
 
......

'''Acredito ter um End If aqui.....


'''' 'Inicia o processo de vinculação

'''''''Faça o Drop Table aqui

Dim dbs As Database
  Set dbs = CurrentDb
  dbs.Execute "DROP TABLE Fluxo Caixa Red;"
  Set dbs = CurrentDb
  dbs.Execute "DROP TABLE Fluxo Caixa Sub Red;"

''''''E Então faça o vinculo!


DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Fluxo Caixa Red", "Fluxo Caixa Red", False
DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, "Fluxo Caixa Sub Red", "Fluxo Caixa Sub Red", False

Msgbox "Tabelas Vinculadas do Banco: " & strCaminho

End Sub

Ok amigo
deu certo..
muito obrigado
At+
Helder