Office: (Office 365) Fehler beim speichern von Daten über ein Formular

Guten Morgen zusammen,

ich habe ein Problem mit einer SQL Servertabelle, diese war bisher als Abfrage oder direkt als RS eines Formulars. Wenn nu n Daten geändert wurden, gab es oft, nicht immer, Fehlermeldungen, ODBC Timeout.

Um das nun zu umgehen, habe ich den Zugriff nun auf ADODBC geändert.
Aber auch hier, gibt es gleich beim ersten .Upate ein Problem... das Programm läuft sich tot...Obwohl mal klappt es mal nicht.
Der Server der DB liegt direkt bei mir, es kann also nicht daran liegen.

Hat jemand eine Idee?

Code:

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim lActId As Long

 'Verbindung zur Datenbank herstellen
 conn.ConnectionString = "Provider=MSOLEDBSQL;Server=AFC-MSSQL2016V;Database=FENG;Trusted_Connection=yes;"
 
 lActId = Forms![Hotline -> Terminallist]!COMPANY_ID
 
 With conn
'Meistens Cursor auf Client außer für SEHR große Arbeiten
      .CursorLocation = adUseClient

' Sperrungen (hier keine bei Multiuser)
      .Mode = adModeReadWrite

' Open the connection
    conn.Open

'Dim rs As New ADODB.Recordset
    rs.Open "SELECT  " _
            & "COMPANY_ID, CGROUP_ID, BANK_ID, USER_ID, COUNTRY_ID, COMPANY_SHORT, COMPANY_NAME1, COMPANY_NAME2, COMPANY_STREET, COMPANY_PLZ, COMPANY_CITY, COMPANY_TEL, COMPANY_FAX, COMPANY_MOBIL, COMPANY_EMAIL, " _
            & " COMPANY_EMAILRG, COMPANY_EMAILSUPPORT, COMPANY_EMAILKB, COMPANY_WWW, COMPANY_PRIVADR, COMPANY_HRB, COMPANY_HRBAMT, COMPANY_GEWSCHEIN, COMPANY_GEWAMT, COMPANY_PERSONR, COMPANY_PERSOAMT, COMPANY_USTID, " _
            & " COMPANY_ANZFIL, COMPANY_VERBAND, COMPANY_ISAKTIV, COMPANY_isINSO, COMPANY_isBIG, COMPANY_OWNER, COMPANY_OWNER_BIRTH, COMPANY_GF, COMPANY_GF_BIRTH, RESELLER_ID, COMPANY_GF_EMAIL, COMPANY_WHENNEW, COMPANY_LASTCONTACT, " _
            & "COMPANY_BWNR, COMPANY_IBAN, COMPANY_BIC, COMPANY_MANDATSNR, COMPANY_MANDATSDATE, COMPANY_ACCOUNT, COMPANY_ACCNAME, COMPANY_BLZ, COMPANY_DoUmsStat, COMPANY_StatEmailAdr, COMPANY_StatEmailAdr2," _
            & " COMPANY_StatEmailAdr3, COMPANY_SL_MANAGE, COMPANY_SL_SEND_ONEFIL, COMPANY_SL_SEND_ALLFIL, COMPANY_SL_SEND, COMPANY_SL_MAILADR, COMPANY_SL_MAIL, COMPANY_GS_TEXT, COMPANY_LS_TEXT, COMPANY_SUMTERM," _
            & " COMPANY_PAYPROVI, COMPANY_ISPROBLEM, COMPANY_ZGbestaetigt, COMPANY_MEMO, CreditorID, Creditor_BusinessAccountChek, ContractProved, YaerEstablished, changeDate, RECHTSFORM_ID, ERWERBSART_ID " _
            & " FROM data.COMPANY WHERE COMPANY_ID = " & lActId & "", conn, adOpenStatic, adLockOptimistic


' Zugriff auf die Daten

 rs!COMPANY_SHORT.Value = Me!COMPANY_SHORT.Value
              rs.Update
            rs!COMPANY_ISAKTIV.Value = Me!COMPANY_ISAKTIV.Value
              rs.Update
            rs!COMPANY_NAME1.Value = Me!COMPANY_NAME1.Value
              rs.Update
            rs!COMPANY_NAME2.Value = Me!COMPANY_NAME2.Value
......
usw.

            Me!txt_YaerEstablished = rs!YaerEstablished
                rs.Update
    End With
    

' Ressourcen freigeben
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

 

Ich bin kein SQL-Server-Spezi, aber ich glaube das Thema wurde hier schon mal behandelt :
https://www.access-o-mania.de/forum/index.php?topic=23773.0

 

Hallo andyfau,

habe dort nicht wirklich eine Lösung finden können, aber Danke