Ho una maschera in cui l'utente deve inserire i suoi dati personali

Ho una tabella composta da campi con proprietà NUMERICA, ed ho un problema, se una casella non viene compilata, nel momento del salvataggio va in errore.

In campi codice DL1 - DL2 - DL3 - DL4 - DL5 - DL6, contenono numeri

Il problema sta proprio in questi, se lascio vuoto "" uno di questi mi da errore, come posso risolvere il problema????

Private Sub Command1_Click()
rsRecordSet.Update
rsRecordSet![Codice DL 1] = Text1.Text & ""
rsRecordSet![Codice DL 2] = Text2.Text & ""
rsRecordSet![Codice DL 3] = Text3.Text & ""
rsRecordSet![Codice DL 4] = Text4.Text & ""
rsRecordSet![Codice DL 5] = Text5.Text & ""
rsRecordSet![Codice DL 6] = Text6.Text & ""
rsRecordSet![Divisione] = Text7.Text & ""
rsRecordSet![Località] = Text8.Text & ""
rsRecordSet![Codice Agente 1] = Text9.Text & ""
rsRecordSet![Codice Agente 2] = Text10.Text & ""
rsRecordSet![Codice Agente 3] = Text11.Text & ""
rsRecordSet![Codice Agente 4] = Text12.Text & ""
rsRecordSet![Codice Agente 5] = Text13.Text & ""
rsRecordSet![Codice Agente 6] = Text14.Text & ""
rsRecordSet![Cognome e Nome] = Text15.Text & ""
rsRecordSet.Update
MsgBox "Dati modificati correttamente!", vbInformation
Unload Form10
End Sub