tabi örneğiniz olmadığı için deneme imkanım olmadı ama kabaca aşağıdkine benzer bir kod kullanılabilir
iif(len(alan)=0,null, değer) mantığı kullanılmıştır
strqry = "Insert into adres(isim,BABA_ADI,ANA_ADI) VALUES (" & iif(len(Hcr.Text)=0,"Null", "'" & Hcr.Text & "'") & ","
& iif(len( Hcr.Offset(0, 2).Text )=0,"Null","'" & Hcr.Offset(0, 2).Text & "'") & "," & iif(len( Hcr.Offset(0, 3).Text )=0,"Null","'" & Hcr.Offset(0, 3).Text & "'" ) & ")"
con.Execute strqry