codice:
For Each file in folder.Files
	if FileExist(filename, connection) = false then
		rs.addnew
	             rs("File") = File.name
	rs.update
	End if
next
dovrei cambiare "_" in spazio, nel campo File.