کلیک دوباره بر روی باتن

[sqlcloner]

با سلام خدمت تمام دوستان انجمن . یه سوال داشتم . میخوام کاری کنم که اگر برای بار دوم روی باتن کلیک شد . یه رکورد با نام جدید رو ذخیره کنه . و اگر برای بار سوم روی باتن کلیک شد . یه رکورد با نام جدید رو ذخیره کنه . تا وقتی که دیگه کاربر کلیک نکنه . من این کد را نوشتم ولی اشکال داره . لطفا کمک کنید .





Private Sub ButtonClicks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button2.Click, Button1.Click
Dim connection_string As String = "Data Source=(local);Initial Catalog=mavad;Integrated Security=True"
Dim i As Integer




For j = 1 To 6
Select Case CType(sender, Button).Name




Case Me.Button1.Name
For i = j To j
Using myconnection As New SqlConnection(connection_string)
Using mycommand As New SqlCommand("ALTER TABLE mavadha ADD mavad" & i + 7.ToString & "[nchar]")
myconnection.Open()
mycommand.Connection = myconnection
mycommand.ExecuteNonQuery()
End Using
End Using
Next
Case Me.Button2.Name
For i = j To j
Using myconnection As New SqlConnection(connection_string)
Using mycommand As New SqlCommand("ALTER TABLE mavadha ADD mavad" & i + 2.ToString & "[nchar]")
myconnection.Open()
mycommand.Connection = myconnection
mycommand.ExecuteNonQuery()


End Using
End Using
Next


Case Me.Button3.Name
For i = j To j
Using myconnection As New SqlConnection(connection_string)
Using mycommand As New SqlCommand("ALTER TABLE mavadha ADD mavad" & i + 3.ToString & "[nchar]")
myconnection.Open()
mycommand.Connection = myconnection
mycommand.ExecuteNonQuery()


End Using
End Using
Next


Case Me.Button4.Name
For i = j To j
Using myconnection As New SqlConnection(connection_string)
Using mycommand As New SqlCommand("ALTER TABLE mavadha ADD mavad" & i + 4.ToString & "[nchar]")
myconnection.Open()
mycommand.Connection = myconnection
mycommand.ExecuteNonQuery()


End Using
End Using
Next
Case Me.Button5.Name
For i = j To j
Using myconnection As New SqlConnection(connection_string)
Using mycommand As New SqlCommand("ALTER TABLE mavadha ADD mavad" & i + 5.ToString & "[nchar]")
myconnection.Open()
mycommand.Connection = myconnection
mycommand.ExecuteNonQuery()


End Using
End Using
Next
Case Me.Button6.Name
For i = j To j
Using myconnection As New SqlConnection(connection_string)
Using mycommand As New SqlCommand("ALTER TABLE mavadha ADD mavad" & i + 6.ToString & "[nchar]")
myconnection.Open()
mycommand.Connection = myconnection
mycommand.ExecuteNonQuery()


End Using
End Using
Next


End Select
Next
End Sub