Visual Basic - [CONSULTA] Visual Basic cargar varios registros en simultaneo

Estoy queriendo registrar 2 campos con los datos: numero y nombre en simultaneo, en distintos registros en una base de Acces

Ahora el código es asi:

Dim consulta As String = "insert into Jugadores(Jugador,Equipo,NombreJugador,NúmeroJugador)values('" & "1" & "','" & equipo & "','" & jl1 & "','" & txt_numjug1.Text & "')"
Dim consulta1 As String = "insert into Jugadores(Jugador,Equipo,NombreJugador,NúmeroJugador)values('" & "2" & "','" & equipo & "','" & jl2 & "','" & txt_numjug2.Text & "')"

Dim COMANDO As New OleDbCommand(consulta, con)
Dim DR As OleDbDataReader = COMANDO.ExecuteReader
Dim COMANDO1 As New OleDbCommand(consulta1, con)
Dim DR1 As OleDbDataReader = COMANDO1.ExecuteReader

En lugar de crear 2 variables consulta (consulta y consulta1) y comando y comando1, quisiera hacer un DoWhile y que el nombre de la variable sume 1 numero a medida que pasa el loop

Es decir: Dejar 1 sola sentencia que vaya modificando la variable jl1 por jl2 y el txt_numjug1.text pase a ser txt_numjug2.text

Es decir: cambiar el numero del nombre de la variable

Es posible? Gracias

Pude resolver utilizando Arrays :

............