Rica ederiz.
txt eklenmemiş dosyaya
Ayrıca boşsa diye birşey için uğraşmıştık.

Me.TextBox5.Value = rs.Fields(2).Value

yerine  alttaki gibi deneyin.Kod uruncik userformunda Sub getir() kodunda.
Sonuç verirse diğerlerinde ayarlayabilirsiniz.

Me.TextBox5.Value = IIf(IsNull(rs.Fields(2).Value) = True, "", rs.Fields(2).Value)