Ton problème vient du fait que le champ de la base de données n'est pas autorisé à recevoir des valeurs "chaine vide" en effet il ne faut pas confondre la valeur NULL et la valeur chaine vide (VbNullString).
Voici un début de solution :If Len(Me.Text1.Text & "") 0 then MaValeur Null
Ensuite, tu vas dire que le champ de la base de données prend pour valeur la variable MaValeur (de type Variant).