Simplificação de código 2

Boa noite pessoal,

  Estou precisando de uma ajuda pra simplificar este código abaixo:

CurrentDb.Execute "insert into Dia(Nome,Localização,Chegada,Saída) values ('" & Me.cb1.Column(1) & "','" & Me.lc1.Column(0) & "', '" & Me.entra1.Value & "','" & Me.sai1.Value & "')"
CurrentDb.Execute "insert into Dia(Nome,Localização,Chegada,Saída) values ('" & Me.cb2.Column(1) & "','" & Me.lc2.Column(0) & "', '" & Me.entra2.Value & "','" & Me.sai2.Value & "')"
CurrentDb.Execute "insert into Dia(Nome,Localização,Chegada,Saída) values ('" & Me.cb3.Column(1) & "','" & Me.lc3.Column(0) & "', '" & Me.entra3.Value & "','" & Me.sai3.Value & "')"
CurrentDb.Execute "insert into Dia(Nome,Localização,Chegada,Saída) values ('" & Me.cb4.Column(1) & "','" & Me.lc4.Column(0) & "', '" & Me.entra4.Value & "','" & Me.sai4.Value & "')"

Desde já agradeço a ajuda.

Olá bom dia!

poderia disponibilizar o projeto para melhor ajuda-lo ?

Ola Daniel Boa tarde,

              o Projeto é bem simples, apenas tenho um formulário vinculado a uma tabela (Dia) e no formulário vários textboxs e comboboxs, nomeados na ordem que apareceram no código:

cb1        lc1       entra1        sai1
cb2        lc2       entra2        sai2
cb3        lc3       entra3        sai3
cb4        lc4       entra4        sai4


                O que eu quero é simplificar o que já esta funcionando, é inserir através do código enviado, os valores das textbox, combobox não vinculados na tabela dia.

Pode cocolocar em um Modulo e Metodo separado.




private Sub AdicionarDia(Nome as String, Localizacao as String, Chegada as String, Saida as String)

CurrentDb.Execute "insert into Dia(Nome,Localização,Chegada,Saída) values ('" & Nome & "','" & Localizacao & "', '" & Chegada & "','" & Saida & "')"

end Sub

Chamada:

AdicionarDia(Me.cb1.Column(1), Me.cb1.Column(10), Me.Entra1, Me.Sai1)

Ola Minato desculpa a demora,


       Infelizmente não consegui fazer como você orientou, estou disponibilizando o banco de dados caso você queira me ajudar.


Grato

Iai pessoal nada?!!!