For i = 0 To List1.ListCount - 1
abc = Addupdate(i)
Next i

Public Function Addupdate(num As Integer)
Dim cn2 As Object
Set cn2 = CreateObject("ADODB.Connection")
Dim rs2 As Object
Set rs2 = CreateObject("ADODB.Recordset")
cn2.Open "Provider=SQLOLEDB;Persist Security Info=False;Initial Catalog=Admin;Network Address=" & ip & ";Network Library=DBMSSOCN;User ID=abc;Password=abc"
rs2.CursorType = adOpenKeyset
rs2.LockType = adLockOptimistic
rs2.Source = "Trampampam"
rs2.ActiveConnection = cn2
rs2.Open
rs2.AddNew
rs2.Fields("Name_File") = List1.List(num)
rs2.Fields("Size") = 123
rs2.Update
rs2.Close
Set rs2 = Nothing
cn2.Close
Set cn2 = Nothing
End Function

Dim cn2 As Object
Set cn2 = CreateObject("ADODB.Connection")
Dim rs2 As Object
Set rs2 = CreateObject("ADODB.Recordset")
cn2.Open "Provider=SQLOLEDB;Persist Security Info=False;Initial Catalog=Genh;Network Address=" & ip & ";Network Library=DBMSSOCN;User ID=abc;Password=abc"

rs2.CursorType = adOpenStatic
rs2.LockType = adLockOptimistic  'ВОТ ЭТА СТРОЧКА ВОЗВРАЩАЕТ ОШИБКУ
rs2.Source = "Updater"
rs2.ActiveConnection = cn2
rs2.Open

'   "Проверь, что возвращает вот это - List1.List(num)"
'убираю эту строчку и ошибка все равно остается


rs2.Close
cn2.Close
Set cn2 = Nothing
Set rs2 = Nothing