actualizar varios textbox al mismo tiempo

[mrprogman]

alguien sabe como puedo actualizar varios texbox al mismo tiempo..tengo el sig codigo..


me gustaria evitar todo este codigo..
Dim cadtexto As String
Dim cadtexto2 As String
Dim cadtexto3 As String
Dim cadtexto4 As String
Dim cadtexto5 As String
Dim rg As Integer
Dim rg1 As Integer
Dim rg2 As Integer
Dim rg3 As Integer
Dim rg4 As Integer
myConnection = New SqlConnection("Data Source=DELLMR;Initial Catalog=Compras;Persist Security Info=True;User ID=sa;Password=Stm01;Connect Timeout=200 ")

myConnection.Open()
cadtexto = "Update ocfiltro Set Agencia = ' " + DropDownList1.Text + " ' ,Paquete = ' " + TextBox2.Text + " ' where oc ='" & TextBox3.Text.Trim & " ' "
cadtexto2 = "Update ocfiltro Set Agencia = ' " + DropDownList1.Text + " ' ,Paquete = ' " + TextBox2.Text + " ' where oc ='" & TextBox4.Text.Trim & " ' "
cadtexto3 = "Update ocfiltro Set Agencia = ' " + DropDownList1.Text + " ' ,Paquete = ' " + TextBox2.Text + " ' where oc ='" & TextBox5.Text.Trim & " ' "
cadtexto4 = "Update ocfiltro Set Agencia = ' " + DropDownList1.Text + " ' ,Paquete = ' " + TextBox2.Text + " ' where oc ='" & TextBox6.Text.Trim & " ' "
cadtexto5 = "Update ocfiltro Set Agencia = ' " + DropDownList1.Text + " ' ,Paquete = ' " + TextBox2.Text + " ' where oc ='" & TextBox7.Text.Trim & " ' "
myCommand = New SqlCommand(cadtexto, myConnection)
myCommand = New SqlCommand(cadtexto2, myConnection)
myCommand = New SqlCommand(cadtexto3, myConnection)
myCommand = New SqlCommand(cadtexto4, myConnection)
myCommand = New SqlCommand(cadtexto5, myConnection)
rg = myCommand.ExecuteNonQuery()
rg1 = myCommand.ExecuteNonQuery()
rg2 = myCommand.ExecuteNonQuery()
rg3 = myCommand.ExecuteNonQuery()
rg4 = myCommand.ExecuteNonQuery()

los campos q necesito actualizar son del texbox3 al textbox7...saludos y gracias