I finally got this solution. It works. And yes, it is for Indusoft o Aveva Edge.

Function getColumnNames(tableName)
    Dim sql, numCur, numRows, row, txt
    sql ="Select name FROM sys.columns WHERE object_id = OBJECT_ID('" & tableName & "') ORDER BY column_id Asc"
    numCur = $DBCursorOpenSQL("sqlExpress", sql)
    numRows = $DBCursorRowCount(numCur)

    For row=1 To numRows
      $namesInDB[row-1] =  $DBCursorGetValue(numCur,"name")
      $DBCursorNext(numCur)
    Next

    $variablesInDB = numRows
    $DBCursorClose(numCur)
   
End Function