Try:
For i As Integer = 0 To 3
olesql = "update table1 set rr_since='" & aryTextFile(i) & "' where rr_code='" & aryTextFile(k) & "'"
Dim olecmd As New OleDb.OleDbCommand
olecmd.CommandText = olesql
olecmd.Connection = oleconn
olecmd.ExecuteNonQuery()
olecmd.Dispose()
Next
Only look at using a Parametrized Query instead, as this is an invitation to an SQL Injection attack.