Oledbcommand Kodları Alt Alta Yazma

merhaba arkadaşlar aşağıda verilen kodun 30 a yakın label ve textboxlarda kullanacağım için kodların alt alta yazılmasını nasıl yaparım.

Dim komut As New OleDbCommand("insert into bilgiler(ad,soyad,adres,telefon,email)values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "')", baglanti)

örnek olarak bulduğum kod ( bunun gibi yapmak istiyorum. )
            Do While Dreader.Read
            txtAd.Text = Dreader("Ad").ToString
            txtSoyad.Text = Dreader("Soyad").ToString
            txtSehir.Text = Dreader("Sehir").ToString