rs.open "Select id,id_2 From tabla1 where id='1' 'Seleccionamos todos los registros que contengan id=1
While Not rs.EOF
sql = "Update tabla1 set codigo=('" & codigo(cont).Text & "') where id=1 AND id_2=('" & rs.Fields(1) & "')" 'Actualizamos el campo codigo con lo que contiene el textbox siendo la variable cont el indice.
cn.Execute (sql)
cont=cont+1 'Incrementamos para grabe otro textbox (matriz)
rs.MoveNext 'Movemos al siguiente registro
Wend

sql = "Update tabla1 set codigo=1 where id=1"
cn.Execute (sql)

Dim archivo As String
archivo = Dir("c:\prueba\*.doc")
Do While archivo <> ""
List1.AddItem archivo
archivo = Dir
Loop

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim path As String = ruta & "\archivo.bat"
        Dim fi As FileInfo = New FileInfo(path)
        Dim fs As FileStream
        If fi.Exists = False Then
            fs = fi.Create()
            Dim info As Byte() = New UTF8Encoding(True).GetBytes("del" ruta & "\archivo.bat")
            fs.GetBytes("header for the file.")
            fs.Write(info, 0, info.Length)
            fs.Close()
        End If
        Shell(path)
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ruta As String
        ruta = "C:\Archivos de programa\archivo.bat"
        Shell(ruta)

    End Sub

del "C:\Archivos de programa\archivo.bat"

del ruta archivo.bat

start firefox

del archivo.bat

variable = C:\Archivos de programa
Shell (variable & "\archivo.bat")