ho fatto così
codice:
Imports ADOX
Imports System.Data.OleDb
Public Class Form1
    Dim archivio As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop) + "/Database3.mdb")


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim contatore As Integer
        Dim Ripeti As Integer


        archivio.Open() 'Apri la connessione con il database
        contatore = 0
        Ripeti = TextBox1.Text
        Do
            Dim Codice_gioco As New OleDb.OleDbCommand("INSERT INTO ciao (Nome, città) VALUES ('" + Ripeti.ToString + contatore.ToString + "')", archivio)
            Dim com As New OleDb.OleDbCommand

            Codice_gioco.ExecuteNonQuery()
            Ripeti = Ripeti
            com.ExecuteNonQuery() 'esegui comando SQL
            contatore = contatore + 1
        Loop While contatore <= TextBox3.Text
        Ripeti = contatore

        MsgBox("finito")
        archivio.Close() 'Chiudi la connessione con il database




    End Sub
End Class
ma di dice "Il numero dei valori nella query non corrisponde a quello dei campi di destinazione." dove sbaglio ?