dosyam_AccessTR.writeline (rs_kural.Fields("m1") & rs_kural.Fields("m2") & rs_kural.Fields("m3"))
yukardaki kod yerine aşağıdaki kodu dener misiniz? Aln2 = Left(Trim(rs_kural.Fields("m2")), 25)
Aln2 = IIf(Len(Aln2) < 25, Aln2 & Space(25 - Len(Aln2)), Aln2)
dosyam_AccessTR.writeline (rs_kural.Fields("m1") & Aln2 & rs_kural.Fields("m3"))