DATA
                    estou salovando a data do sistema na base quando fasso o primeiro salve ele salva tudu direitinho  mas quando vou salvar a segunda fez ele salva uma numeração diferente da data  como arrumo esse erro  estou fazendo assim 
mskdt_reg.Mask = "##/#/####"
mskdt_reg.Text = Format(Date, "dd/m/yyyy")
If mskdt_reg = Empty Then
l_dtreg = Empty
Else
                                                         
l_dtreg = mskdt_reg.Text
End If
                
            mskdt_reg.Mask = "##/#/####"
mskdt_reg.Text = Format(Date, "dd/m/yyyy")
If mskdt_reg = Empty Then
l_dtreg = Empty
Else
l_dtreg = mskdt_reg.Text
End If
                        Tópico encerrado , respostas não são mais permitidas
                    
                