Expected then error

Det er linien

If SQL!=Null then   

den ikke kan lide

Prøv noget i retning af dette

option explicit

Dim objFSO, objFolder, objFile, strExt, strFilecontent, arrFilecontent, x

Dim conn, dsn, strSQL, rs, tom
tom = 0
' ADODB connection objektet
Set Conn = CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & ("c:\test\ftp\dm.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from Demo"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do
if rs.EOF = true then
  msgbox("Database er tom")
  tom = 1
  exit do
end if
  ' Udskriv værdien af kolonnen sort_art
  'MsgBox("Demo")
  x = rs("sort_art")
MsgBox(x)
  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing

if tom = 0 then
  MsgBox("Læsning af database er afsluttet")
end if