[Resolvido]Tratamento de erro: "3048" - Não é possível abrir mais bancos de dados.

Boas pessoal,
Esse é um assunto que ainda me parece grego, vejo, leio mas não entendo.

Estou com um erro: "3048" - Não é possível abrir mais bancos de dados.

Ele é gerado pelo seguinte fato:

Tenho um btnSeq, antes de encerrar eu o chamo novamente: Call btnSeq_Click.

Mas após adicionar aproximadamente 250 linhas na tabela me é gerado o erro, utilizo o seguinte para adicionar informações nas tabelas:

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb '------------------------------------Linha do erro 76
Set rst = dbs.OpenRecordset("tblAlpha")

rst.AddNew
.....

Gostaria de tratar este erro da seguinte maneira,
Não aparecer a mensagem e prosseguir até o evento do meu botão ser concluído.

Boas,
Bom tive de alterar algumas coisas e adicionei o tratamento de erro do mestre J Paulo:

Dim Msg As String
On Error GoTo 1

Codigo

Exit_1:
   DoCmd.Hourglass False
   DoCmd.Echo True
   Exit Sub

1 a:
   DoCmd.Hourglass False
   DoCmd.Echo True
   Msg = "Erro # " & Str(Err.Number) & " gerado na " & Err.Source _
       & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
       & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
   MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
   Resume Exit_1

Também alterei a forma em que eu colocava os dados no formulário para:
CurrentDb.Execute "INSERT INTO tblTodasCombinacoes(A, B, C, D) Values(" & A& "," & B& "," & C& "," & D& ")"

Com cumprimentos para o amigo criquio.
Bom por hora não me é mais gerado o erro mas ainda em progresso de conclusão.

Grato a todos.