Deling af fil på sharepoint til opslag via vba kode

Hvordan ser koden ud?

Sub Kunde()

kundenr = InputBox("indtast kundenr")


If kundenr = "" Or Not IsNumeric(kundenr) Then
ActiveDocument.Unprotect
Application.ScreenUpdating = False
Selection.GoTo What:=wdGoToBookmark, Name:="kr"
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
    ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
        wdAllowOnlyFormFields
   
       
   
Else

Application.ScreenUpdating = False
    Dim objConn As ADODB.Connection
    Dim objRs As ADODB.Recordset
    Dim strConnString As String
    Dim strSQL As String
   
    Set objConn = New ADODB.Connection
    Set objRs = New ADODB.Recordset
   
    strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\\kartotek\Kartoteker.MDb"
    objConn.Open strConnString
   
    strSQL = "SELECT Kundenr,Navn1,navn2, Adresse, postnr,by FROM kundekartotek WHERE kundenr = " & kundenr
    objRs.Open strSQL, objConn

Alternativet er jo et netværksdrev
Kender ikke til sharepoints præmisser

hej sender du lige et svar her...havde glemt den

Ok