Iniciante - Probelmas com muitas variaveis

[ELITE 0]

Olá Pessoal, sou bem iniciante em asp.net e estou com um problema.

 

Segue meu código:

 

 

Partial Class _Default

Inherits System.Web.UI.Page

 

Protected Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.Click

 

Dim conexao As New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Email.mdb;Persist Security Info=False")

Dim command As New Data.OleDb.OleDbCommand

Dim strComand As String = "INSERT INTO dados(cliente,contato,telefone,email,data) VALUES('{0}','{1}','{2}','{3}','{4}',#{5}#)"

 

Dim cliente As String = txtCliente.Text

Dim contato As String = txtContato.Text

Dim telefone As String = txtTelefone.Text

Dim email As String = txtEmail.Text

 

 

Dim OpcaoA_1 As String = txtOpcaoA_1

Dim OpcaoB_1 As String = txtOpcaoB_1

Dim OpcaoC_1 As String = txtOpcaoC_1

Dim OpcaoD_1 As String = txtOpcaoD_1

Dim OpcaoE_1 As String = txtOpcaoE_1

 

 

Dim OpcaoA_2 As String = txtOpcaoA_2

Dim OpcaoB_2 As String = txtOpcaoB_2

Dim OpcaoC_2 As String = txtOpcaoC_2

Dim OpcaoD_2 As String = txtOpcaoD_2

Dim OpcaoE_2 As String = txtOpcaoE_2

 

Dim OpcaoA_3 As String = txtOpcaoA_3

Dim OpcaoB_3 As String = txtOpcaoB_3

Dim OpcaoC_3 As String = txtOpcaoC_3

Dim OpcaoD_3 As String = txtOpcaoD_3

Dim OpcaoE_3 As String = txtOpcaoE_3

 

Dim OpcaoA_4 As String = txtOpcaoA_4

Dim OpcaoB_4 As String = txtOpcaoB_4

Dim OpcaoC_4 As String = txtOpcaoC_4

Dim OpcaoD_4 As String = txtOpcaoD_4

Dim OpcaoE_4 As String = txtOpcaoE_4

 

Dim OpcaoA_5 As String = txtOpcaoA_5

Dim OpcaoB_5 As String = txtOpcaoB_5

Dim OpcaoC_5 As String = txtOpcaoC_5

Dim OpcaoD_5 As String = txtOpcaoD_5

Dim OpcaoE_5 As String = txtOpcaoE_5

 

Dim OpcaoA_6 As String = txtOpcaoA_6

Dim OpcaoB_6 As String = txtOpcaoB_6

Dim OpcaoC_6 As String = txtOpcaoC_6

Dim OpcaoD_6 As String = txtOpcaoD_6

Dim OpcaoE_6 As String = txtOpcaoE_6

 

Dim OpcaoA_7 As String = txtOpcaoA_7

Dim OpcaoB_7 As String = txtOpcaoB_7

Dim OpcaoC_7 As String = txtOpcaoC_7

Dim OpcaoD_7 As String = txtOpcaoD_7

Dim OpcaoE_7 As String = txtOpcaoE_7

 

Dim OpcaoA_8 As String = txtOpcaoA_8

Dim OpcaoB_8 As String = txtOpcaoB_8

Dim OpcaoC_8 As String = txtOpcaoC_8

Dim OpcaoD_8 As String = txtOpcaoD_8

Dim OpcaoE_8 As String = txtOpcaoE_8

 

Dim OpcaoA_9 As String = txtOpcaoA_9

Dim OpcaoB_9 As String = txtOpcaoB_9

Dim OpcaoC_9 As String = txtOpcaoC_9

Dim OpcaoD_9 As String = txtOpcaoD_9

Dim OpcaoE_9 As String = txtOpcaoE_9

 

Dim OpcaoA_10 As String = txtOpcaoA_10

Dim OpcaoB_10 As String = txtOpcaoB_10

Dim OpcaoC_10 As String = txtOpcaoC_10

Dim OpcaoD_10 As String = txtOpcaoD_10

Dim OpcaoE_10 As String = txtOpcaoE_10

 

 

Try

 

' ***************************************************

' SALVA MENSAGEM NO BANCO

' ***************************************************

 

command.Connection = conexao

command.CommandText = String.Format(strComand, cliente, contato, telefone, email, DateTime.Now.ToString("dd/MM/yyyy"))

 

conexao.Open()

 

command.ExecuteNonQuery()

 

conexao.Close()

conexao.Dispose()

 

' ***************************************************

' LIMPA A TELA E MOSTRA MENSAGEM

' ***************************************************

 

txtCliente.Text = String.Empty

txtContato.Text = String.Empty

txtTelefone.Text = String.Empty

txtEmail.Text = String.Empty

 

 

lblMensagem.Text = "Email enviado com sucesso!"

 

Catch ex As Exception

 

' ***************************************************

' MOSTRA MENSAGEM DE ERRO

' ***************************************************

 

lblMensagem.Text = ex.Message

 

End Try

 

End Sub

 

End Class

 

 

 

 

O problema está aqui, abaixo são muitas váriaveis para eu inserir no banco, teria como fazer um loop pois somente os numeros mudam

 

 

Dim OpcaoA_1 As String = txtOpcaoA_1

Dim OpcaoB_1 As String = txtOpcaoB_1

Dim OpcaoC_1 As String = txtOpcaoC_1

Dim OpcaoD_1 As String = txtOpcaoD_1

Dim OpcaoE_1 As String = txtOpcaoE_1

 

 

Dim OpcaoA_2 As String = txtOpcaoA_2

Dim OpcaoB_2 As String = txtOpcaoB_2

Dim OpcaoC_2 As String = txtOpcaoC_2

Dim OpcaoD_2 As String = txtOpcaoD_2

Dim OpcaoE_2 As String = txtOpcaoE_2

 

Dim OpcaoA_3 As String = txtOpcaoA_3

Dim OpcaoB_3 As String = txtOpcaoB_3

Dim OpcaoC_3 As String = txtOpcaoC_3

Dim OpcaoD_3 As String = txtOpcaoD_3

Dim OpcaoE_3 As String = txtOpcaoE_3

 

Dim OpcaoA_4 As String = txtOpcaoA_4

Dim OpcaoB_4 As String = txtOpcaoB_4

Dim OpcaoC_4 As String = txtOpcaoC_4

Dim OpcaoD_4 As String = txtOpcaoD_4

Dim OpcaoE_4 As String = txtOpcaoE_4

 

Dim OpcaoA_5 As String = txtOpcaoA_5

Dim OpcaoB_5 As String = txtOpcaoB_5

Dim OpcaoC_5 As String = txtOpcaoC_5

Dim OpcaoD_5 As String = txtOpcaoD_5

Dim OpcaoE_5 As String = txtOpcaoE_5

 

Dim OpcaoA_6 As String = txtOpcaoA_6

Dim OpcaoB_6 As String = txtOpcaoB_6

Dim OpcaoC_6 As String = txtOpcaoC_6

Dim OpcaoD_6 As String = txtOpcaoD_6

Dim OpcaoE_6 As String = txtOpcaoE_6

 

Dim OpcaoA_7 As String = txtOpcaoA_7

Dim OpcaoB_7 As String = txtOpcaoB_7

Dim OpcaoC_7 As String = txtOpcaoC_7

Dim OpcaoD_7 As String = txtOpcaoD_7

Dim OpcaoE_7 As String = txtOpcaoE_7

 

Dim OpcaoA_8 As String = txtOpcaoA_8

Dim OpcaoB_8 As String = txtOpcaoB_8

Dim OpcaoC_8 As String = txtOpcaoC_8

Dim OpcaoD_8 As String = txtOpcaoD_8

Dim OpcaoE_8 As String = txtOpcaoE_8

 

Dim OpcaoA_9 As String = txtOpcaoA_9

Dim OpcaoB_9 As String = txtOpcaoB_9

Dim OpcaoC_9 As String = txtOpcaoC_9

Dim OpcaoD_9 As String = txtOpcaoD_9

Dim OpcaoE_9 As String = txtOpcaoE_9

 

Dim OpcaoA_10 As String = txtOpcaoA_10

Dim OpcaoB_10 As String = txtOpcaoB_10

Dim OpcaoC_10 As String = txtOpcaoC_10

Dim OpcaoD_10 As String = txtOpcaoD_10

Dim OpcaoE_10 As String = txtOpcaoE_10

 

 

 

Desde já agradeço a atenção.

[Davis 0]

Faz uma Array:

 

Dim OpcaoA As String() = {txtOpcaoA_1, txtOpcaoA_2, txtOpcaoA_3, txtOpcaoA_4, txtOpcaoA_5, txtOpcaoA_6, txtOpcaoA_7, txtOpcaoA_8, txtOpcaoA_9, txtOpcaoA_10}Dim OpcaoB As String() = {txtOpcaoB_1, txtOpcaoB_2, txtOpcaoB_3, txtOpcaoB_4, txtOpcaoB_5, txtOpcaoB_6, txtOpcaoB_7, txtOpcaoB_8, txtOpcaoB_9, txtOpcaoB_10}...