More Efficient Code

Hi all, I have the code listed below and feel that it could be run much more efficiently.  I run this same code for attrib2, 3, description, etc for a total of 21, so on each postback I am running a total of 21 different connections, i have listed only 3 of them here for the general idea.  I run this same code for update and for insert, so 21 times for each of them as well.  In fact if someone is adding a customer, after they hit the new customer button, it first runs 21 inserts of blanks for each field, then runs 21 updates for anything they put in fields, on the same records.  This is running too slow...  any ideas on how I can combine these??  We have 21 different entries for EVERY customer.  The Pf_property does not change, it is 21 different set entries, the only one that changes is the Pf_Value.

Try
                Dim queryString As String = "select Pf_Value from CustomerPOFlexField where [Pf_property] = 'Attrib1' and [Pf_CustomerNo] = @CustomerNo"
                Dim connection As New SqlClient.SqlConnection("connectionstring")
                Dim command As SqlClient.SqlCommand = New SqlClient.SqlCommand(queryString, connection)
                command.Parameters.AddWithValue("@CustomerNo", DropDownlist1.SelectedValue)
                Dim reader As SqlClient.SqlDataReader
                command.Connection.Open()
                reader = command.ExecuteReader
                reader.Read()
                TextBox2.Text = Convert.ToString(reader("Pf_Value"))
                command.Connection.Close()
            Catch ex As SystemException
                Response.Write(ex.ToString)
            End Try


            Try
                Dim queryString As String = "select Pf_Value from CustomerPOFlexField where [Pf_property] = 'Attrib1Regex' and [Pf_CustomerNo] = @CustomerNo"
                Dim connection As New SqlClient.SqlConnection("connectionstring")
                Dim command As SqlClient.SqlCommand = New SqlClient.SqlCommand(queryString, connection)
                command.Parameters.AddWithValue("@CustomerNo", DropDownlist1.SelectedValue)
                Dim reader As SqlClient.SqlDataReader
                command.Connection.Open()
                reader = command.ExecuteReader
                reader.Read()
                TextBox5.Text = Convert.ToString(reader("Pf_Value"))
                command.Connection.Close()
            Catch ex As SystemException
                Response.Write(ex.ToString)
            End Try


            Try
                Dim queryString As String = "select Pf_Value from CustomerPOFlexField where [Pf_property] = 'Attrib1ValMessage' and [Pf_CustomerNo] = @CustomerNo"
                Dim connection As New SqlClient.SqlConnection("connectionstring")
                Dim command As SqlClient.SqlCommand = New SqlClient.SqlCommand(queryString, connection)
                command.Parameters.AddWithValue("@CustomerNo", DropDownlist1.SelectedValue)
                Dim reader As SqlClient.SqlDataReader
                command.Connection.Open()
                reader = command.ExecuteReader
                reader.Read()
                TextBox6.Text = Convert.ToString(reader("Pf_Value"))
                command.Connection.Close()
            Catch ex As SystemException
                Response.Write(ex.ToString)
            End Try

 Thanks,

Randy