If Conn.State <> adStateOpen Then
MsgBox "Error Connecting to database" 'If you get here you have a problem with your connection
'String or your database
Else
For i = LinkFelt - 1 To lstDocs.ListCount - 1
'set and execute SQL string
Conn.Execute "ALTER Table [Vedlikeholds Rutiner] ADD COLUMN Link" & LinkFelt & " Text(50)"
Next
End If
If Conn.State = adStateOpen Then Conn.Close
Set Conn = Nothing
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.