intIMEX = 2                                         'IMEX=1 for Read only, 
' IMEX=2 for Read/Write
strDatabase = _
  "https://workspaces.intranet.com/sites/EVD%20UGG%20und%20GIPSI/Lists/Test%20" & _
  "LM%20Neu/Elberich2.aspx?&View=%7B7CE55561%2DA41F%2D42F2%2DAC1B%2D8886778E13" & _
  "9%7D&ShowInGrid=False" ', "M36066", "evd2.224"
strList = "{46218811-6D9A-4DBD-AEE4-9F122692E0AE}"  'LIST=GUID to specific list 
' or view
strTable = "Test Neu"                                   'TABLE=Display name of 
' list
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=" & intIMEX & _
  ";RetrieveIds=Yes;" & "DATABASE=" & strDatabase & ";" & "LIST=" & strList & _
  ";VIEW=;RetrieveIds=Yes;TABLE=" & strTable
 
 
 
 conSharePoint = New ADODB.Connection()
 conSharePoint.Open(strConnection)
 rst = New ADODB.Recordset()
 rst.Open("Test Neu", conSharePoint, ADODB.CursorTypeEnum.adOpenDynamic, _
   ADODB.LockTypeEnum.adLockPessimistic)
 
 
 
        With rst
            .AddNew()
            .Fields("Marktgebiet").Value = "Eintrag"
            .Fields("SBK").Value = "Name"
            .Update()
        End With