dikkatimden kaçan birşey olmadıysa kodlarda bir sorun yok gibi
barajveri.TextBox1 = Format(rs.Fields(1), "dd/mm/yyyy") yerine

Format(rs.Fields(1), "dd\/mm\/yyyy")

de yazılabilir.
onun dışında yazdığınız her 2 kodda  düzgün çalışıyor, ay ve günün yeri de değişmiyor.
şu anki sorun ne?
adım adım ne yaptığınızda ne olması gerekirken ne olduğunu anlatır mısınız?